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NIT = Initialize Sync Line gevice 
2 Ini gh ige the device unit 
AM, In Fiat ze parameters 
T = fransmit 1/0 FDT routine 
i DT = Common transmit FOT routine 
NTRY = Alternate 1/0 entry 
FDOT/ALT_CLEANFDT = Perform CLEAN FDT processing 
gneais LAPB/BISYNC FDOT routine 
R ve 1/0 FDT routine 
T, Set mode 1/0 operation FOT rout tne 
TAL, Perform setmode FDT operation on controller 
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FBT, Sense Mode 1/0 operation FDT rout 
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CRAR BUFS, Get P1 and P2 characteristics buffers 
K.BUFS. Eheck P1 and P2 buffers for write access 
K_P Check Pl buffer address for write access 
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Allocate a P2 buffer and charge user's quota 
ute Change UCB parameter values 
EFAULT_CHAR, Set default characteristics for given protocol 
RIB. Change trib parameter values 
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START_TRANSMIT = Start transm 

Load Rapping registers and give to COMBO 

READ_MODEM = Read device modem register 

CLEAN = Abort all outstanding XMT‘s (ALL 10's for BISYNC) 
START = Start unit, device and/or protocol 

Unit access routines 

Set prececel characteristic 

START_UNIT BISYNC = Start up device in BISYNC mode 
START-BISYNC_TIMER = Start up the BISYNC timer 
FILLFREELIST = FILL MESSAGE FREE LIST 
START_RECEIVE_BISYNC = Start receives in BISYNC mode 
START _RECEIVE = Start any receives 
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YNC = Fork routine for BISYNC mode 
= Complete a receive buffer 
- Finish receive 1/0 processing 
- Transmit completion routine 
nd Device timer wakeup routines 
Te timer 
- stag the BISYNC mode receiver 
log and diagnostics register dump 
$ On attention condition 


ISYNC_ = Stop the bisync mode timer 
CEL = Cancel 1/0 rotuine 
wn un 5. device and/or protocol 
P2 buffer gerane ers 
TRIB, Vos (dete P2 buffer ¥ se iote param 
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TITLE XGDRIVER = VAX/VMS DMF32 Sync Line Device Driver 
“Toent 63. . . 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYHARD. MASSACHUSETTS. 
RIGHTS RESERVED. 


S SOFTWARE IS aee UNDER A LICENSE AND MAY BE USED AND COPIED 
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FACILITY: 
VAX/VMS DMF32 Sync Line Device driver 
ABSTRACT: 


AUTHOR: 
Meg Dumont 1-May-81 
MODIFIED BY: 
vO3-028 MMD0325 Meg Dumont, 
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This module contains the DMF32 Sync Line driver FDT routines, 
interrupt dispatcher, interrupt service and fork routines. 


Pdetayte ti 16:1 
DDCMP gets 


@ problem found during powerfail testi i 


Reg dus 13-Aug-1984 8:4 
ENSEMODE _CTRL ee we seule et 


Meg p 1-Aug-1984 14:07 
Fix to zero the IRPSL UREDIA field for all the cases of a 
SENSEMODE CLEAR/READ Count, for PSI and BISYNC. This 
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49 
nto the situation 
e protocol buffer was 
allocated. Also a fix to SHUTDOWN_L INE Ss clear the 
protocol buffer field n the UCB oe the a has been 


(1) 
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AX/VMS Macro V 
DRIVER.SRCIXGD 
ixes a bug where PSI s syetens would qyces tone) 
f the yee tried a SHOW/CLEAR CIRCUIT on a | 


was defined but not turned on. 


v03-025 MMD0307 Neg Dumont, 5-Jul-1984 10:20 

ace J {geput on erencan te in progress. There 
bug in the OME ser euere where it occasionally 

loses c this th f a transmit x, A. inprogress that transmit 

on eR, x incorporates a time which times a 

croneait * if the transmit doesn t complete in the 

specified time than the device is shut down and the 

error count is incremented. 


Fix to check only low byte on XMT errors. 


v03-024 MMD0303 Meg Dumont, 6-Jun-1984 16:26 
Fix to test thes the protocol buffer has been allocated before 
we eft? to use it in the SENSEMODE and XMIT FOT rout taes. A aise 
for PSI ike — code where we didn't set up t 
1 buffer address before we jumped to finish: the ELE AN 
processing. 


v03-023 MMD0298 Meg 5* 18-May-1984 10:25 
Fix to Oeese DEY quot a on Line startup. Add the DEVSM_AVL 
Bie to UCBSL_DEVCHAR to allow PSI and BISYNC to work. 


v03-022 MMD0295 Meg Dumont By oho 16:21 
Fix to support a J interface with the protocol. This 
interface is designed to ensure that retransmit DDCMP messages 
will not be done so out of order. 


v03-021 MMD0260 Reg Dum umont, 22-Mar-1984 14:35 
Fix so that the buffer quota for device isn’t returned twice. 


v03-020 mmD0255 Meg Dumont, 28-Feb-1984 17:29 
Fixes that make the arluar less suspetible to hardware errors. 


vO3-019 wHMO001 Bill Matthews 16-Feb-1984 
Second part of change to control_init to support 
multiple comm devices on one board. 


v03-018 MMD0216 Meg Dumont, 6-Jan-1984 12:56 
Fix to SENSEMODE, where we were not returning the 
correct value in RO. Fixes a problem which showed 
up in the UETP. 


v03-017 madete 
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wiles 9=-Dec-1983 12:59 
o clear the XG_DS " MATING bit on transmit for 
an BISYNE mode, which allows users to transmit a 

message after an error has occu req. Change to control_init 
fo support the possiblity of mutlitple dmfs on a given 
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v0 88-Dec-1983 


3-016 —2630 Meg Dumont, 15:30 
Rey oc ver on master pack with all of FT2 support including 
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Fix to the Clean routine to take advanta - As! 49 microcode 

rn? f the enable 
bit is cleared. Fix 2 fots te —3 fh ‘ correct 
status in the I0SB if only a Pl parameter was specified. 


v 15 These two fixes pertianed to necessary FT1 fixes and are 
Vo3- Sz incorporated in Chis driver. 


v03-013 mee $e +! Ae ont, 13-Jun-1983 11:33 


ae to set the xmter on when a t ne out occurs 4 
DOCMP. This will ensure that the message gets send. 


v03-012 MMD0168 Meg Dumo 35-May-1983 12:45 
Take out startin Ry the “OOCMP timer from UNIT_INIT and 
make it part on the Line startup and shutdown Via 
the normal DDCMP —28 ALso include the fix where 
SETMODE on the controller would fail if a P2 buffer was 
not included in the Q10. 


v03-011 MMD0165 ened Dumo ante 27-Apr-1983 17:50 
Fix to change ro oppi nao f DTR from SHUTDOWN_CIRCUIT to 
SHUTDOWN _LI E. Tie to RECEIVE_INTERRUPT routine to include 
XGSM_ABORT as a non-fatal recéive error. 


v03-010 MMD0013 Meg Dumont, 1-Dec-1982 13:59 
pines for support of HDL 
+ Seded Supper’. rer CLEAN via Q10 and enhanaced the CLEAN 
code 
b) Changed the use of NMASC_LINPR_LAP to ues oh LPR _LAPB 
c) Added check for device inactive on LAPB XMT 


v03-009 MMD0012 Meg Dumont, 13-Oct-1982 12:58 
Fix problem doing —* oios over LAPB. 


v03-008 meee? Meg 88-Oct-1982 18:45 
ave LAPB support. ey ; “fix for the problem running the 
DA n half q pl ſt qver real modems. Force the Line to 
wait at least 10 milliseconds before trying to transmit 
a message after it has received control of the Line. 


v03-007 MMD0010 Meg D 7-Jul-1982 13:25 
Add $VADEF to System i lstens, 


v03-006 MMD0009 Meg Dumo 23-Jun-1982 13:40 
Add check to ensure that J outstanding XMT’s have been 
tere berore nbrgcessing any RCV‘'d moose es yhen the device 
. rns ng half duplex or trib modes. Fixed a bug in 
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Inge where a message could get sent even when XMt'r 
be. “alt ve. 


v03-005 mo0008 Beg Dune 18-Jun-1982 17:01 
Fix a bug in POKE USER, ool Change where the TFB address 
gets loaded in RECEIVE.DONE . 
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v03-004 MMD0007 Meg Dumont, 22-Jun-1982 9:57 
Add conditional code to clear fields in UCB for ERRSSS. 


v03-003 MMD0006 meg Dumont 25-May-1982 16:05 
Fix to sync to IPLS_TIMER before queueing entires onto the 
timer queue. Fix to CONTROL_INIT wrong reg orer was being 
used. Added some conditional code for journaling IRP's 
and some to do extra error counting. 


v03-002 MMD0005 eg Dumont 23-Apr-1982 14:03 
Added a TQE which times CTS coming high for half duplex and 
multipoint cases. Also 2* a clear on UCBSL_DEVDEPEND for 
start up on line and circuit. 


v03-001 MMD0004 Meg Dumont, 23-Mar-1982 13:21 
Fix to use executive routine to PROBE user P2 buffer. Deleted 
work around code for micro code bugs. Fix to set transmitter 
state to IDLE on circuit shutdown. 


v03-003 MMD0003 — Dumont, 11-Feb-1982 10:51 
in trib mode do not time out waiting for CTS to come back. 
Add fields to count latency errors. Add support for 
retransmit timer as a Line parameter. 


v03-002 MMD0002 Meg Dumont, 5-Feb-1982 15:23 
Fix bug in the Sensemode read parameters. 


v03-001 mmMD0001 Meg Dumont, 2-Feb-1982 13:37 
Add a check for Maxium Receive Buffer parameter. And fixed 
a couple problems with Clear_Counters. 
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System definitions 
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nm 
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Mm 
= 
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cB 
ISYN 
RBDE 
XBDE 
DBDE 
DCMP 
EVDE 
LADE 
81 

YNDE 
DPTDE 
FDEF 
DBDE 
ODEF 
PLDE 
RPDE 
IBDE 


SLAPBDEF 


$v 
SVECDEF 


Local macros 


.MACRO SETB 
5 BBSS 
-ENDM = SETB 
.MACRO CLRB 
* BBCC 
SENDM = CLRB 
.MACRO PARA 


aram 
Off 
Widt 
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AST control block 

Struct for BISYNC pretecet buf fer 

Controller request bloc 

Complex buffer block 

Device data bloc ock 

Constant def’s for DDCMP 

Device charateristics 

Driver/protocol command defs 

Driver/protocol command defs 

Dynamic data osrys byres 

Driver prologue sabe 

Global field def mittens 

Interrupt data block 

1/0 function codes 

7 ptt ol t prtersty levels 
a 

Job ot a block 

Lapb buffer def's 

Message field descriptor 

Network management def's 

Process control block 

Processor registers 

Priv def's 

System service status 

DDCMP buffer def's 

Timer queue elenent def's 

UNIBUS adapter registers 

Unit control bloc 

XGDRIVER symbols 

XMDRIVER symbols 

Transmit Q def's 

Virtual address defs 

Interrupt vector 


IT POS,BAS,?L ; Set a single bit 
POS ,BAS,L 
IT 
IT POS,BAS,?L ; Clear a single bit 
POS ,BAS,L 


IT 
M TYPE,OFFSET, WIDTH, MIN, MAX, INVALID,BASE 


p 
set in the data structure to current value 


eter type 
h of field in the data structure (B,W,L) 
| 


<x 


— |) 


c 3 J * = 
secu = a7 OES free Lie Devin Driver CASES HESSEN HSHTEL MESES AE wean "OP 


61; MIN = Minimum value parameter is allowed to take 
3 MAX = Maximum value parameter is allowed to take 
3 INVALID = Invalid flags in status word 
¢ 3 BASE = Data base (LINE,TRIB) 
68 ~1F BLANK TYPE 
6 «WORD 0 
oe ~1F FALSE 
— SSSTYP = TYPE & PRM_M_TYPE ; Isolate type code 
09 0 ~LIF NOT_BLANK <MIN>> S$$S$TYP = SSSTYP!PRM_M_MIN 
71 -LIF NOT_BLANK <MAX>, SS$STYP = SSS$TYP!PRM_M” MAX 
9 oe LIF NOT-BLANK < NVALID>, SS$STYP = $S$S$TYPTPRM_M_INVALID 
0 74 SSSOFF = ioe H OF F_M_VALUE : Isolate offset only 
0 75 $$$WID = ; Set null width 
00 2 -LIF IDN <WIDTH><B>, $$$WID = <1a0FF_V_WIDTH> 
7 -LIF IDN <WIDTH><W>, $$SWID = <2a0FF-V—WIDTH> 
00 8 . TIF IDN <WIDTH><L>, SS$S$WID = <S@OFF_V_WIDTH> 
00 4 —— RD S$SSOFF'SSSWID 
000 4 iit Göint <MAX>, .WORD 
900 6 - LIF NOT BLANK <INVALID>, - WORD INVALID 
000 8 *BASE'_PRM_BUF SIZ = "BASE _PRM_BUFSIZ + 6 
000 84 -ENDC 
8 3 -ENDM PARAM 
44 Ha -MACRO SKIP BIT,LOC REG, CONTEXT=W, ?7L 3; SKIP FIELD 
000 288 BBC #BIT,LOC, ; Br if field not present 
0000 89 TST CONTEXT (REG) + : Skip next field 
0000 90 L: 
0000 91 -ENDM SKIP 
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This were —RA— into the CASEx instruction. It calculates the 
base’ parameters from the < , ex,displacement> List 
—n n the Sel or' pa 
such that | unspecified index ,verue within the bounds of the 
transfer vector is associated with a diplacement which transfers 


rameter. The dispatch table is set up 


1. rol to the first location after the CASE statement, i.e., behaves 
f the index were out of bounds. 


-MACRO $B8ND1,$B8ND1_1,$B8ND1 2. ,$8ND1_3 
$BND2- $BND1 "1 ,$BNBD1_2 


: Example: 
: SDISPATCH RO,<- ; Message type in RO 
; sindex displacement 
8 ; <Cl, NSPSRCV_CI>,- ; Process Cl message 
; <cc, NSPSRCV_CC>,= ; Process CC message 
0 3 <Ol, NSPSRCV “DI>.- ; Process DI message 
; a <oCc, NSPSRCV_DI>,= : Process DC message 
3 BRw NSPSRCV_ILLMSG : Message type unknown 
8 MACRO SDISPATCH, INDX, VECTOR, TYPE=W,NMODE=S“#, 2MN, 2MX,7S,7SS,222Z 
0 . 
0 MACRO 38«. 305P1.1 
0 IRP 4 _2-$DSP1_1 
; $0S $DSP1_2 
0 .ENDM 
0 «MACRO $DSP2 32 1, ee 2 
0 .2<$D§ + § 
0 [WORD —8 . 
0 -ENDM 
0 
0 
0 
° -ENDM 
«MACRO $BND2,$BND2_1 * 
eee LIF | $B8NB2°1,$BNB2_2-., .=$BND2_2 


-MACRO $BND SBND_ }.$8 
 IRP $BND-3 SND. ,-?? 
SBNDT * SBND_3 
-ENDM 
.=0 
SBND GT, <VECTOR> 
$SBND LT, <VECTOR> 
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.2558 
| ase INDX ,#<MN-27>,NMODE ' <MX-MN> 
-REPT MX-MNe 

—3 pe A +2 

25 

SDSP1 <<VECTOR>> 


» =<MX-MN>*2 + S$ + 2 


=—OODNOAMN EW" O OONOUS 


on start circuit est cal 
State of transmitter “Off 
State of transmitter | 

State of transni ther Waiting 
for clear to 

Short wait cts. to come high 
oree RTS and wait for CTS to 


Pot of “ticks to wait for CTS 


SBH8s 
—T 


00000006 


E 
$¢- ~Urcts 
TS 
CT 
T 


am 
“uw 


x 
x 
XG 
x 
x 
x 
XGSC_CIR_PAR = “X<FFFFF700> 
x 
x 
x 
x 
x 
x 


Sete Se Ge Se Sete Se Ge Se See 


oS Of NO 
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<£ 
wn 
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~ 
wm 
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nn 
mm 
oO 
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—* 
66 ; JNXS$$ = 1 ; Define for geyrnel ting IRP's 
67 ; CTS$$$ = 1 3; Define for CT 
68 ; ERRSSS = 1 3; Define for fatal error logging 
— DBGS$$ = 1 3; Define debug ver of driver 
3 BISYNCS$$ = 1 3; Define for version of driver 
4 3 to test out BISYNC 
{3 3 
ee 3 Local symbol definitions 
6 : The fo} Loving symbols are defined to work with the various CASE statenents 
77; —2* within this driver when different actions must be taken accordi ng 
4 3 to protocol type. These are specified so tht the DDMCP case always falls 
: thee the CASE. 
0000000 1 XGSC_PROTYPE_LAPB = 0 
0000001 § xXG$C~ “PROTYPE_ _BISYNC = 1 
0000002 ? XGSC"PROTYPE_DDCMP = 2 
000186A0 5 XGSC_CTS_DELTA = 10*1000*10 : Delta for CTS timer 
§ : 10 milli seconds 
00030090 XGSC_BISYNC_DELTA = 25*1000*10 3; Delta for Bisync TQE 
3 3; 25 milliseconds 
8 G$C_BPC_DEFAULT = 
1 94 gsc BRG. per auct = 300 
1 9 FSIZ = 256 : Default buffer size 
; 0007F 9 Osc sTveora = DOCMPSC <5) feore 
0 0906 | GS$C_HEADER = ROCHPSE WEADE 
FFF SF 3 GSC“LINE_PAR = “X<FFFSFS * 23.—2. in DEVDEPEND 
; on star 
FFFFF700 38 ; Bits to clear 8 DEVDEPEND 
9 
‘ 
e 
5 
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00000004 
—998 
80000004 
00000004 
1 
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DSCSA_POINTER = 4 3; Descriptor buffer address 
one “tee = = F ; DMF offset to Sync Line CSR 
NUM~MAP REG = 4 —*2 of æe* registers 
MAX_RCVS = 4 3; Max number of RCVS before 
$010 parameter offsets 

09009 py ° 9 i Porencter 

; Parameter 
0 a p= 2 | Persectee i 
9000016 P5 = 16 : Parameter 


3 a transmit must happen 


3; Overlay of IRP 


SOEFINI IRP 


: 


————— —————————öööÿ 
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00000021 8 - = IRPSW_FUNC+1 ; Overlay function word 
0 SDEF IRP$B_XGFUNC -BLKB 1 ; DMF driver internal func code 
00000040 009 . = IRP$Q_STATION 
be SDEF IRPS$W_QUOTA -BLKW 1 ; DMF driver byte quota needed 
04 : Define driver internal function codes stored in IRP$B_XGFUNC of IRP. 
v1 3; NOTE: These are not used as bit offsets, but as valves. 
' 3 
004 -VIELD XG_FC,0,< : Internal function codes 
<STRTCIR>,= > Start a tributa ry 
444 <STRT_LIN>,= 3; Init the device nc UCB 
445 <STOP_CIR>,= 3; Stop a tributa 
44 <STOP_LIN>,=- 3; Stop the device” (inc stopping 
44 - 3 the trib as well) 
44 <CLEAN>,=- ; Abort all outstanding XAT's 
4 <READ_MODEM> ,~ ; Read modem register 
: 
2 § SDEFEND IRP : End of IRP overlays 
454; 
? 5 ; XGDRIVER UCB extensions 
4 $ . SDEFINI 
00000090 4 8 -BLKB ycBSC_LENGTH 
459 SDEF UCBSL_XG_ Ast -BLKL 3 Attention AST List 
4 ? SDEF UCBSL_XG_TQE -BLKL 15 3; CTS TQE block 
461 SDEF UCBSA_XG_PRO_BUFFER .BLKL 1 : Place to eters the address of 
4 § 3; the buffer allocated for prot 
465 SDEF UCBSQ_XG_ATTIN .BLKQ 1 ; Received message List 
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UCBSO_XG_RCVS 
UCBSO_KG_ERE 
UCBSL-XG_RCV_ 
UCB Su~NG RCV 
UCBSW_XG_RCV- 
UCBS$Q"XG_RCV 
— -KG POST 
UCB$2_XG_XAT 
UCBSL_XG_XMTE 
UCBSL_XG_XMT_T 
UCBSW_XG_QUOTA 
UCB$B_XG_INUS 


B- 
UCBSB~ XG COUNT 


UCB$Z_XG_VECTOR 


ss — 
Zz 2222 


= VAX/VMS DMF32 Sync Line Device Driver "Ere eerio8e bosses 


Pine 
sBLK 


vw 
2 


PR_ 1Wx =, +4 


1 
aedhft -BLKL 1 


-BLKW 
-BLKB 
-BLKB 


~BLKL 


UCBSB_XG_XSTATE .BLKB 


UCBSB"XG_WFCTS_SEC .BLKB 1 
UCBSW_XG est 


ucB 
UCBSu” XG_DSC 


UCBSL_XG_PID 
UCBSW_XG_CHANL 
UCBSW~XG_CHANC 


UCB$2_XG_DDCMP 
UCBs =XG_SYNC 

CB$B_XG_ perren 

UCBSB” XG_P 


sees 
t i 
“-anD0orov 
cw 
vO 


ucB 


Cc 

o 

@ 
— 


Cc 
o 
2 
= 


EAN 


* 
——— 


TFSA_TFB 


-BLKW 
al 


LKL 1 
A ADDR ~-BLKB DLASC_ADDR _LENGTA 
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| 
; Receive 1/0 packet queue | 
Free receive by ffer queue 
Rev buffer awa Yting ata for BISYN. 
index into the rcv buffer 
Initial value q rcv byte count 
Rev buffer awaiting data 
Receiy cutters f te. 1/0 comp 

| 


imeout time ar xt inpr 
Length of timeout (in 


Byte quota for RCV's 

Bit set for each slot in use 
Limit the number of RCVs 
before a transmit must happen 
Control slot vector XMT 

slot 0 and 1 RCV slot 2 and 3 
Transmitter state 

Number of seconds to wait for 
clear to send to come up 

Last RCV csr value 

Last XMT csr value 

Last RCV error value 

Last XMT error value 

Last data set change csr 


seconds) 


Process ID 
Line channel number 
Circuit channel number 


Block for setable DDOCMP param 
Block for setable SYNC params 
Start of up?’ ne params 
Protocol selection 
Duplex setting 
Controller loopback 

Number of 222 buffers 
Set the Line spee 
Length of CTS timeout 
Determines modem status after deas 
Tyoe of loopb wante 
Address of framing routine passed 
used by framing routine 


; Quadword of BISYNC state info 
; Number of outstandin Rk 


; Size of protocol hea 

; Protocol type e used tor TCASE® 5 
Field for CLEAN IRP address 

: Buffer to pass to protocol 

3 various address prot needs 

: for DDCMP retransmit of messages 


3; Notice default for CHAR is Full duplex control station on a sync Line 


; SDEF 
SEQU TFSVISTATYP 


Start of trib gontro} block 


= Control = Tributary 


— 


— VV——— 


Seay TESV-POINY. : 0 = Point t i 1 = Multipoi 
* :302 Point to point = t nt 
pay HERRON, — — vat to 
* ; 0 = Fu ex = Ha x 
Seay TESH~DUPLEX : 
Bay 30 : 0 = Synchronous 1 = Async 
soe TESB-CHAR -BLKB : Device characteristics 
DEF TFSB_ADDR -BLKB 3 Station address, default is 1 
zu TFS$B_XADOR -BLKB 3; XMT station address default is 1 
+H 18 I LKB 3 Gc¥ ssegeren address default is 1 
: Send a 
soy TESATSNAK é 
48 bg ett 1 : Send an ACK 
EQU TFSM_SACK g 
SEQU TFSV_SREP ; Send a REP 
SEQU TFSMTSREP 4 


Message exchange fields 


Amount of time to wait before timing 
the reply timer out. This field is 
only used for Sterne yte areal clock 


Max number of reply timeouts allowed 


4 

4 SDEF TFSB_SFLAGS -BLKB ; Send an ENQ message Slope 

6 SDEF TFSB_R .BLKB ; Highest sequential msg RCV'd 

4 SDEF TFSB_N .BLKB ; Highest sequential msg XMT'd 

4 SDEF TFSB_A .BLKB 3; Highest sequential msg ACK'd 

4 SDEF TFSB_T .BLKB 3; Next data msg to XMT 

2 TFSB_X .BLKB ; Last data msg to be XMT'd 

2 ; Timers 

5 SEQU TFSV_SELECT 0 ; When set then send the select flag 
5 SEQU TFSM_SELECT 1 

5 SEQU TFSV_TIMER 1 3; If set then the timer is running 
5 SEQU TFSM_TIMER § 

5 SEQU TFSV_RCVDET Set when a msg is rcv'd used to 
5 SEQU TFSM_RCVDET 4 determine if a seletion has been 
5 acknowledged in some way 

5 SDEF TFSB_SELTIM -BLKB Selection and timer flags 

5 SDEF TFSB_REPTIM -BLK Type of reply timer 

2 SDEF TFSW_REPWAI -BLKW 

6 

6 

6 


Current number of reply timeouts 


MEANS OOO NANE WO OOD NAME WN O ODNAUE OW O DONO SW 
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Max ** of pesseges allowed to 
send in one selection interval 


SSOOOCOCOCOCOCCOCOOSCOOSCOOSOSOSOSCOSCOOCOSOOCOOOCOCOCOCOOOCOCOOCOCOOCOCOOOOOCOOOCOCOS D0 
ec — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — ce — ce ee ee ce ee ee ee cee ee ee ee ee 
NNN SSS SNS 
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SDEF TF 
SDEF TF 
SDEF TF 
SDEF TFSB_MACTR -BLKB Counter of these msgs 
6 SDEF TFSW_TEB -BLKW Size of trib error Block 
oe SDEF TFS$Q_XMTQ -BLKQ List head for the 
— SDEF TFS$Q_CTLQ -BLKQ List head for control message queue 
9 SDEF TFS$Q_RTOQ -BLKQ List head for the RTOQ 
7 SDEF TFSQ_CMPQ LKQ List head for the CMPQ 
SDEF TFSQ_XMTOVF -BLKQ List head for XMt over flow queue 
7 SDEF TFSA_BUFPTR »BLKL This field gets the value of 
74 R8 on entry to the protocol 
75 ; SDEF TFSA_GFB BLKL Address of the global field block 
1 SDEF TFSA_DEV_TIMER .BLKL Address of the device timer routine 
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174 , : Xmit queue blocks for the control messages 
174 ; SDEF TFSL_QACK -BLKL 1 3; Queue block for an ACK message 
6 ; SDEF TFSL_QNAK -BLKL 1 ; Queue block for an NAK message 
174 3; SOEF TFSL- —B -BLKL 1 ; Queue block for an REP message 
174 ; SDEF TFSL -BLKL 1 ; Queue block for an STRT message 
1M : ; SDEF TF t “OSTACK -BLKL 1 ; Queue block for an STACK message 
HS § 3; SDEF TFSL_TOQE -BLKL 15 ; Timer queue entry block 
174 3; SDEF TFSB_NAKRSN -BLKB 3; NAK reason code 
Ve 3 SDEF TFSB_XQCNT -BLKB ; Count of number of free slots on XMTQ 
1% | 33 Beginning of error counters 
174 95; SDEF TFSK 2 ; Start of error counters 
174 94 ; SDEF TE eu08 -BLKW 3 NMA definitions for the field 
174 95 ; SDEF TFS$L_D BYT »BLKL ; Records bytes RCv'd y station 
174 38 3 SDEF TFSWCDBATYP -BLK 3 NMA definitions for the fiel 
174 97 ; SDEF TFSL_OBYT -BLK ; Records bytes xMT'd by station 
174 98 ; SDEF TESU-DARTYP -BLK ; NMA definitions for the field 
174 99 ; SDEF TFSL_DMSG »BLKL ; Records msgs RCV'd by station 
174 600 ; SDEF TFSW_DMXTYP -BLK 3 definitions for the field 
174 601 ; SDEF TFSL_OMSGX -BLK :; Records msgs XMT‘d by station 
174 6 § 3; SDEF TFSW_SELTYP -BLKW 3; NMA definitions for the field 
174 8 3; SDEF TFSW_SELSP -BLK ; Records selection interval expired 
94 Be 3 SDEF TFSW_DEOTYP -BLKW 3 def for field 
174 605 ; SDEF TFS$W_DEOBC BLK ; Data errors outbound bit counters 
174 606 ; SEQU TFSVOHCRC 6 ; NAK's RCV'd header CRC reason code 1 
174 8 ; SEQU TFSM_OHCRC 1 
174 6 3 3; SEQU TFSV_ODCRC 1 3; NAK's RCV'd data CRC reason code 2 
0174 609 ; SEQU TFSM_ODCRC § 
0174 610 ; SEQU TFSV_OREPS 3; NAK's RCV'd REP response rsn code 3 
174 M 3; SEQU TFSM_OREPS 4 
174 3 3; SDEF TFS$B_DEO -BLKB ; Data errors outbound 
174 «4613; UCBSC_XG_LAPBCTR =. ; Start of LAPB error ctrs 
1746 ©4614 ; SDEF TFSW_DEITYP -BLKW ; NMA def for fields 
174 615 ; SDEF TFSW~DEIBC BLKW 3 Data error inbound error counters 
174 616 ; SEQU TFSVTIHCRC : ; NAK's XMT'd header CRC reason code 1 
174 3 3; SEQU TFSM_IHCRC 
174 13 3; SEQU TFSV_IDCRC 1 3 NAK's XMT'd data CRC reason code 2 
174 19 ; SEQU TFSM_IDCRC 3 
174 ; SEQU TFSV_IREPS 3; NAK's XMT'd REP response rsn code 3 
174 : SEQU TFSM_IREPS 
174 3; SDEF TFSB-DEI “aL KB ; Data error inbound 
174 ° 3 uce C_XxG LAPBCTR_LEN =,-UCBSC_XG. SLABETR Size of error ctrs 
174 4; SDEF TFSW_CBETYP TBLKW 7 NMA definition for the field 
174 5 ; SDEF TFSW_LBEBC BL : Local * error bit counters 
174 § ; $SEQU TFSVTLBUF_NAVL 0 ; Local buffer unavl SNAK set rsn 8 
174 3 $SEQU TFSMTLBUF"NAVL 1 
174 3 SEQU he I ty 1 : Local bfr too small SNAK set rsn 16 
174 3 ty TFSM_LBUF_SML 2 
174 33_SDEF TFSB_LBE -BLKB 3; Local buffer erro 
174 3; SDEF TESW_RBETY -BLK 3; NMA definition tor the field 
174 § 3 144 TESV-RBUF BLKW ; Remote buffer error bit counters 
174 3 SEQU TFSV_RBUF_NAVL ¢ ; Remote buffer unavl NAK RCV'd rsn 8 
174 4 ; SEQU TFSM-RBUF-NAVL 


RGOR yen = VAX/VMS DMF32 Sync Line Device —34 197-560-1986 90:43:03 pies Macro V04-00 Page 13, 


-$ DRIVER. SRCJXGDRIVER.MAR; 1 


1 
GFS$B_DRVCHR -BLKB 
SDEF GFSW-SELWAI -BLKW 


SDEF GFSW_NEXTCNT -BLKW 1 


Device charateristics 

Amount of time to wait before timing 
the selection interval ou 

Count on which interval to deselect 
the station when running in trib mode 
Max number of selection intervals 
Current myer ot selection intervals 


22222 
28288283888 


SDEF GFSB_MAXSEL -BLKB 
SDEF GFSB_CURSEL -BLKB 


8 SDEF GFSB_FIPL -BLKB 1 Fork IPL_for 

6 SDEF GFSB_DIPL -BLKB 1 Device IPL for DDCMP 
SDEF GFSW_GEB BLKW 1 Size of global error block 
SDEF GFSL_SELEN B 1 Time the selection int expires 
SDEF GFSL_TQE STS -B 1 Timeout return status 


L 
SDEF GFSB-STRTIM -BLKB 
SDEF GFSB_BABTIM -BLKB 


SDEF GFSL_STRTMR »BLKL 
SDEF GFSL_BABTMR »BLKL 


3; Station error counters 


Amount of time to wait before setting 
station streaming flag 

Amount of time to wait before setting 
station babbling flag 

Stream timer 

Babbling timer 


5 EQU TFSV_RBUF_SML J ; Remote bfr too small NAK RCV'd rsn 16 
§ coy TFSM_RBUF_SML 
DEF TFSB_RBE -BLKB 3; Remote buffer error 
DEF TFSW_STOTYP -BLKW 3; NMA definition for the fields 
DEF TFSW_STOBC BLKW : Selection timeout bit counters 
EQU TFSV_NOREP_SEL : ; When no attempt to respond was made 
EQU TFSM_NOREP seb 
EQU Trev AINCRED 5 L } ; When attempt is made but the timeout 
4 EQU TFSM_INCREP_SEL 
4 ; SDEF TFSB_STO -BLKB : Selection timeout 
5 ; SDEF TFSW_LRTOTYP -BLKW : NMA definition for field 
§ 3 SDEF vee LATO -BLKB 3; Records setting of SREP 
4 SDEF TFSW_RRTOTYP ~-BLKW 3 inition for field 
649 SDEF TFSB_RRT -BLKB 3 meceree getting SACK when REP RCV'd 
3; Ww NUMB = 
29 SDEF TFSW_THRES -BLKW ; Threshold errors 
8 3; Bits 0-2 RCV threshold errors 
6 § :; Bits 3-5 XMT threshold errors 
65 : Bits 6-8 Selection threshold errors 
654 -BLKB 1 ; Reserved 
655 ;SDEF  GFSA_GFB : Start of global control block 
$28 SDEF GFSB_STATE -BLKB 3 grate of protocol 
8 SEQU GFSV_TIMER_RUNNING 0 :; 0 = Timer not running 
38 SEQU GFSM_TIMER_RUNNING 1 : 1 = timmer running 
65 SDEF GFSB_TIMER_STATE .BLKB 1 3; State of DDCMP timer 
660 ; SEQU GFSV_CRC 0 ; 0 = Device does CRC checking 
$3 SEQU GFSM_CRC 
4 
0 
2 
4 


> ed 


; Start of global error counters 

: NMA definition for field 

; Local station error bit counters 
; Receive overrun SNAK set reason 
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; Receive overrun SNAK not set 
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XMT underrun 
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3 SEQU GFSV_LMSGHDR_FMT ; 3; NAK RCV'd reason code 17 
; sr oy GF SM_LMSGHOR_FMT 
: DEF GFSB_LSE -BLKB ; Local station errors 

$ ; SDEF GFSW_RSETYP ~BLKW ; NMA definition for field 

97 ; SDEF GFSWLRSE_ BCTRS .BLKW ; Remote station error bit counters 
; SEQU GFSV-RRCU_OVR ; NAK's RCV'd reason code 9 
3 ty GFSM_RRCV_OVR 
; SEQU GFSV_RMHDR_FAT ; SNAK set reason code 17 
3 SEQU GFSM_RMHDOR FMT 
; SEQU GF V~SADR_ERR ; Message RCV'd by an unselected trib 
: Eau Sreunetk TRIG ; Streaming trib 
; SEQU GFSMSTR-TRIB ; 
3; SDEF GFSB_RSE -BLKB 3; Remote station errors 
3; SDEF GFSB_GH_CRC -BLKB ; Global header CRC error 
; SDEF GFSB"MDF_CRC -BLKB ; Maintenance data field CRC error 
: -BLKB 3; spare 
. IF DF ERRSSS 
Sdef ucb$w_xg_xmtlat .blk 1 3: count on XMT Latency err's 
ede} serge gates “pre : 3 couns on —9 latency err's 

ucb$w_xg_xmtnxm .blkw ¢ count on nxm err's 

Bae} ucbaucaececee ‘bike | Sunt on Silat rev'd Severs 
$def ucb$w_xg_prst .blkw 1 3 count on perstitant errors 
Sdef ucb$w_xg disc .blkw ! ; count on modem disconnet err 


blkw reserved 
-ENDC =; DF_ ERRSSS 


olf DF CTS$$$ 
cts_size = 32 


$def ucb$b_cts_last 
$def ucb$b_cts_buf 


set size of buffer to keep 
3 spare 
1 set last used location 
set size of buffer 

set lengt 

DF CTS$$$ end 


cts_size 
b$b_cts_last 


If DF JNX$$ 
blk 
jnx_size = 3 
f ucb$b_Last eblkb 1 
f ucb$l_buffer eblkl = jnx_size 
ucb$c_last_len = ,-ucb$b_last 
-ENDC” ;DF JNxSS$ 


UCBSC_XG_LENGTH =. : Size of XGDRIVER UCB 
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00000174 


: Device status bits 


SS eee eee eee ennnwti 


6+ PPP PP PPP P-P-PPP-P-P-P-P-P-P-P-P-P-F-F-P~P-P-P-P~P~P-P-P-P~P~P PPP PPP PPP PPP PPP PPP 


00000000 


_VIELD XG_DS,0,<- 
<XATING. .M>,- 
<RCVING, .M>.= 


UCB$W_DEVSTS bits 
Devicé XMTing if 
Device RCVing if 
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“SEP=1 


<INITED 
<fORK P PED. >, ° 
<RCV— wt ee 


<XAT 
<LOADIBS) — — 
—WRX 
pl DON ES,,M>, @ 
SRCVENS. .F2 »= 
<XATENB, 
<CTSTOE “RUNS, - 
<CLEAN, .M>, 


Receive buffer definition 
This structure must be the same 


SDEFINI RCV 


RCV_L_LINK -BLKL 2 
RCV-WBLKSIZE .BLKW 1 
RCV"B-BLKTYPE .BLKB 1 
RCV"B-F IPL “BLKB 
RCV-W-MSGSIZ.  .BLKW 1 
RCV~W~ERROR “BLKW OT 
— “BLKL 1 
RCV~B-SLT — 


AX/VMS Macro V04-00 
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; Unit inttlattsed 


n interrupt if bit is 0 
RCV bu o load next 
t set when pri buff loaded 
* wer 8 buf f —* 
p prim else coup second ary 
oad next 


os 

hie h XMT buff fo 

t set when pri buff loaded 

t set when sec buff loaded 
t to enable the board 

; to rcv or xmt 

3; Set when CTS TQE is queued 

: If XMT INPR when CLEAN re 

3; set saying abort after XMT'd 


size as the CXB 


: Forward and backward Links 
: Total block size 
: peck gyre 


; Size * message received 
; Error status 
: Buffer addr * char count 
: Receive slot number used 


RCV_CXB_SPARE .BLKB CXBSK_HEADER-XGSC_HEADER-. 


RCV_Z_HEADER  .BLKB XGS$C_HEADER 
RCV=T-DATA 


ASSUME RCV_Z_HEADER+6 EQ CXBSK_HEADER 
ASSUME RCVIT"DATA GE CXBSK_HEADER 


P2 buffer header definition 


SDEFINI P2B 


P2B_L_POINTER .BLKL 1 
P2B-L_BUFFER ~BLKL 1 
P2B-W"SIZE -BLKY 1 
P2B-B_TYPE -BLKB 1 
P2B-B- SPAR -BLKB 1 
. B-C"LENGTH 

P2B_T_DATA 


SDEFEND P2B 


: “Spare bytes to allow for CXB 
: Size in bytes of msg header 
3; Receive data 


Pointer to start of data 
Address of user's data buffer 
f P2 buffer 


Type of structure 


oo res buffer header 
Start of data 


| 
— 
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Standard Driver 8 eS -SEP-1 DRIVER.S REX XGDRIVER.MAR; 1 
2 -SBTTL Standard Driver Tables 
8 i ; Driver Prologue Table 
4 DPTAB 3 
4 1 END=DRIVER gf hd.- 3; End of driver 
4 1 ADAPT cee 3; UNIBUS device 
4 1 UCBSI pauease _XG_LENGTH,= : UCB size 
03 1 NAME=XGDRIVER™ ; Driver name 
1 DPT_STORE INIT : Initialization data 
8 1 DPT_STORE —3843444 3; Fork IPL 
18 DPT_STORE UCB,UCBSB_DIPL,B,21 3; Device IPL 
04 1 DPT"STORE UCB .UCBSL DEVCHAR L <- De vice shiveseartenten 
4 0 DEVSM_AVL!DEVSM_NET!DEVSM IDV!DEVSH Ov 
04 1 DPT_STORE UCB, UCB$B_DEVCLASS ,8,0C$_SC oF 3 Device class 
048 é DPT“STORE UCB,UCBS$B_DEVTYPE £55 5T$_BMF32 : Device type 
Ou 3 DPT-STORE UCB,UCBSW_DEVSTS,W,0 : Internal status 
9 5 OPT_STORE REINIT ; Init data also for reload 
0054 § DPT_STORE DDB,ODBSL_DDT ,D,.XGSDDT or iver dispatch table 
0059 DPT“STORE CRB. CRBSL_INTO+4 ,D ,RECEIVE_INT V intr service routine 
O55 8 DPT-STORE CRB. CRASL_INTD+VECSL INITIAL , D cOuTROL INIT ; Controller init 
8 DPT_STORE CRB,CRBSL_INTD+VECSL UNITINIT by Unit init routine 
‘ * D, ransm nterrupt service 
68 0 DPT“STORE CRB, CRBSL_INTD2+4,D, TRANSMIT_INT ar it int t i 
443 1 DPT- STORE END 
00009909 5 -PSECT $$$115_DRIVER,LONG 
0000 3 ; 
0000 gi; Driver Dispatch Table 
000 8 DDTAB DEVNAM=XG : Device name 
909 9 START=STARTIO,- : Start 1/0 routine 
00 40 FUNC TB=FUNCTABLE,- : Function decision table 
000 41 CANCEL=CANCEL,- 3 cenget 1/0 routine 
80 rt REGOMP=REGDUMP, - 3; Register dump rout tine 
0 4 DIAGBF =<36+12>,- 3 Di sgnostic buffer size 
te ALTSTART=ALT _ENTRY 3; Alternate entry routine 
; 28 3; Function Decision Table 
0 48 FUNCTABLE: 
5 4 FUNCTAB,=- : Legal fungttons 
50 * <WRITEVBLK,WRITELBLK WRITEPBLK.~ : Transmit functions 
51 READVBLK ,READLBLK,READPBLK,- | ; Receive functions 
: SE TMODE , SENSEMODE , SETCHAR, - ; Set mode functions 
CLEAN : Clean for LAPB 
4 4 FUNCTAB,= : Buffered 1/0 functions 
4 5 RI POT TEL ALR z31 Transmit functions 
4 6 READLBLK ,READPBLK RE ; 
4 SETRODE, K PRSEMODE. SETCHARS = — § Set mode functions 
"4 28 CLEAN 3 ink for LAPB 
4 8 IF DF JNXS$$$ 
4 functab fillbuffer : Buffered 1/0 functions 
4 62 ads abby & ‘writelblk swritepblk,-: 3; Transmit functions 


—_ 
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ca) 
readvblk,readlblk, erooepeth.« 
2— sensemode,setchar,- 


clea 
-ENDC :5F INXSSS 


FUNCTAB XMITFDT 

<WRITELOLK,WRITEPBLK,WRITEVBLK> 
FUNCTAB RCVEDT = 

READLOLK ,READPBLK, READVBLK> 
FUNCTAB SEFADDEE FOT,- 

<SETMODE , SETCHAR> 
FUNCTAB SENSEMODEFDT,- 
<SENSEMODE> 


FUNCTAB CLEANFDT,=- 
<CLEAN> 
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Receive functions 

Set mode functions 

tlean for LAPB 

Transmit function dispatcher 
Receive function dispatcher 
FDOT for set mode and set char 
FDT sensemode routine 

FDT clean routine 


P2 buffer ver 


, 
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-SBTTL P2 buffer verification tables 


: Define P2 buffer verification offsets 
SDEFINI PARAM 
-VIELD PRM,0,<- 
<TYPE-12,M>,= 
cA 1 = 
<INVALED, 1 .M>,- 
-VIELD OFF ,0,<- 


<VALUE , 1 
<wIDTH.2 


SDEFEND PARAM 


13 
3 Define UCB (Line) parameters 


LINE_PRM_BUFSIZ = 0 


LINE~PARAM: 
PARAM NMASC_PCLI_PRO,- 

OF FSET=UCBSB_XG_PRO,WIDTH=B,- 

MAX=NMASC_LIRPR-BSY,- 

INVALID=XG_DS_M~INITED,- 

BASE=LINE 


NMASC_PCLI_DUP,- 
OF FSET=UCBSB_XG_DUP,WIDTH=B,- 
MAX=NMASC_DPR_HAL,- 
INVALID=X6_DS_M_INITED,- 
BASE=LINE 


NMASC_PCLI_CON,- 

OF FSET=UCBSB_XG_CON,WIDTH=B,- 
MAX=NMASC_LIACN_LOO,- 
INVALID=X6_DS_M~INITED,- 
BASE=LINE 


NMASC_PCLI_BFN,- 
OFF SET=UCB X6_BFN,WIDTH=B,- 
MIN=1, MAX 


= e* 
INVALID=XG_DS.M_INITED,- 
BASE=LINE 


NMASC_PCLI_BUS,- 
OF FSET=UCBSW DE VBUF S1Z.WIDTH=U,~ 
MIN=1,MAX=16383,- 


INVAL{D=XG_DS_M_INITED,- 
BASE=L INE 


PARAM 


PARAM 


PARAM 


PARAM 
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Parameter bits and sizes 
Parameter type 

Parameter minimum value 
Parameter maximum value 
Parameter invalid flags 


Offset word fields 
Offset value 
Size of field in structure 


Line parameter buffer size 
Start of Line parameters 


; Protocol selection 


Device can't be ON 


; Duplex mode 


Device can't be ON 


3; Controller mode 


Device can't be On 


: Number of receives 


Device can't be ON 


Buffer size 


; Device can’t be ON 


<= 
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7 PARAM NMASC_PCLI_RTT,=- ; Retransmit timer 
OF F SET=UCBSZ_XG_DDCMP+DLKS$W_REPWAIT,~- 
WIOTH=W,- 
4 MIN=50,- 
B 4 BASE=LINE 
8 PARAM NMASC_PCLI_FRA,- ; Address of BISYNC 
gad OFF SET=UCBSA_XG_FRAME_ADDR, ~ : framing routine 
=L,° 
346 INVALID=XG_DS_M_INITED,=- i; Device can't be ON 
? 8 BASE=LINE 
C 308 PARAM WNMASC_PCLI_STI1,- ; BISYNC state info 1ST 
BC 329 OFFSET=UCBSL_XG_STATE_INFO1,- ; longword 
oBc 95 WIDTH=L,- 
OBC 826 INVALID=XG_DS_M_INITED,= ; Device can't be ON 
ee 227 BASE=LINE 
0c 955 PARAM WNMAS$C_PCLI_STI2,- 3; BISYNC state info 2ND 
OC 328 OFFSET=UCBSL_XG_STATE_INFO2,- ; Longword 
0c 95 WIDTH=L,=- 
OC 228 INVALID=XG_DS_M_INITED,=- ; Device can't be ON 
$3 +44 BASE=LINE 
OC 961 PARAM NMASC_PCLI_TMO,- 3; Timeout value 
0C8 96 OF F SET=UCBSB_XG_TIMEOUT,- 
0c 96 WIDTH=B,- 
Oc 964 INVALID=XG_DS_M_INITED,=- : Device can't be ON 
Ooce 382 BASE=LINE 
OCE 309 PARAM NMAS$C_PCLI_MCL,- : Drop DTR on deassign 
OCE 968 OF F SET=UCBSB_XG_MODEM_CLR,- : except last deassign, where 
Ore 895 sink ee 3; DTR is always droped 
=U,° 
OCE 971 MAX=1,- 
OcE 78 INVALID=XG_DS_M_INITED,- : Device can't be ON 
a 3 BASE=LINE 
8 33 3; Define DMF32 specific parameters 
8 375 PARAM mets PCLI_SYC,=- ; Value for the sync char 
D 978 OF F SET=UCB$2Z_XG_SYNC+XG$B_SYNC_REG,- 
D 97 WIDTH=B,- 
D 3 6 INVALID=XG_DS_M_INITED,- 
+ 3 BASE=LINE 
aa fi : PARAM NMASC_PCLI_NMS,- ; Number of sync char to send 
DE 984 OF F SET=UCBSZ_XG_SYNC+XG$B_NUM_SYNC,- 
DE 2 5 WIDTH=B,- 
DE § INVALID=XG_DS_M_INITED,- 
Of BASE=LINE 
E4 $ PARAM NMASC_PCLI BPC,- : Number of bits per char 
E4 — OF F SET=UCBS2_XG_SYNC+XG$B_BPC,- 
64 9 IDTH=B,- 
€4 44 MIN=5,- 
E46 99 MAX=8,- 


<= 
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Wye 19ers. DS_M_INITED,- 


4 
Es ASE=LINE ~ 
EE 9 PARAM WNMASC_PCLI_MNTL Maintenance loopback mode 
E 9 OF FSET=UCBSZ wxG. *SYNC+XGSB _MNTLOOP, - : for devices which Support 
E WIDTH= : several different loopbac | 
E 1 RAX=NMASC PCLI_INTL3,- : modes 
1 INV =X x6 “DS_M_INITED, = 
: ! § BA etl 
: ! y PARAM 3; End of table 
OF ! $3 ; Define Trib parameters 
00000000 O0F8 1 a8 fR18_PRM BUFSIZ = 0 : Trib parameter buffer size 
: ! ° TRIB_PARAM: 3; Start of trib parameters 
F 1 i PARAM NMASC_PCCI_T ; Trib address 
F 19 OFFS T=DLKSB_ aĩs. WIDTH=B,- 
OF 1014 INVAL [D=xmsm_ STS_ACTIVE,=- ; Trib can't be established 
of ! 12 BASE=TRIB 
1 1 8 PARAM NMASC_PCCI_M ; Max number of messages sent 
: 1018 OFF SET=OLKSS_ TASGcNr, WIDTH=B,- ; in a selection interval 
100 1020 mAK=160 - 
3 1 BASE=TRIB 
1 1 3 PARAM NMAS$C_PCCI ; Maintenance state 
108 1024 OFFSET=DLKSS. main WIDTH=B,- 
108 1025 MAX=NMASC_S OFF ,- 
: : 1p § BASE=TRIB™ 
10E 1028 PARAM NMAS$C_PCCI_MRB,- 3; Maxium receive buffers 
! 4 ! 3 6 =DLk$B _MRB, WIDTH=B,- 
19¢ 1031 INVAL[D=XMSm_ STS_ACTIVE,- 
196 4038 ene 
u 1034 PARAM 3; End of trib tables 
11 1035 
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i 
41 BEF_TRIB_PARAM: : 
8 KSSUME DLKSB_MSGCNT EQ DLK$B8_TRIB+1 
4 ASSUME DLKSB_MAXREP EQ DLKSB_MSGCNT+1 
44 SSUME DLKSB_MAXSEL EQ DLK$B MAXREP+1 
45 ASSUME DLKSWIREPWAIT EQ DLKSB_MAXSEL+1 
8 ASSUME DOLKSW_SELWAIT EQ 5 REPWAIT+2 
4 ASSUME DLKSB_MAINT EQ DLK W_SELWAIT+#2 
8 ASSUME PLRSS_ARS EQ DLK$B_MAINT+1 
4 BYTE ; Default Trib address 
50 -BYTE 4 3; Max nmb of msgs sent / select 
51 -BYTE 4 3 Max nmb of sel intls allowed 
26 -BYTE ; Max times to rexMT a msg 
5 «WORD 000 : Reply timeout timer 
54 WORD 000 3 Selection timer in sec 
55 -BYTE NMASC_STATE_OFF ; Default is no maint mode 
2$ -BYTE 255 3; Default to unlimited rcv buff 
3 DEF_TRIB_PARAMSZ = .-DEF_TRIB_PARAM 
33 3 Default Line parameter values 
61 DEF _LINE_PARAM:: 
8 RSSUME UCB$B_XG_PRO EQ UCBSB_XG_SETPRM 
6 ASSUME UCBSB_XG_DUP EQ UCBS$B_XxG_PRO+1 
64 ASSUME UCB$B_XG_CON EQ UCB$B_XG_DUP+1 
65 ASSUME UCB$B_XG_BFN EQ UCB$B8_XG_CON+1 
96 ASSUME UCBSB_XG_SPD EQ UCBS$B_XG BFN+1 
6 ASSUME UCBS$B_XG_TIMEOUT EQ UCBS$B_XG SPD+1 
68 ASSUME UCBS$B_XG_MODEM_CLR EQ UCBSB_XG_TIMEOUT+1 
69 ASSUME UCB$B_XG_MNT_LOOPB EQ UCBSB-XG-MODEM CLR+1 
4! ASSUME UCBSA_XG_FRAME_ADDR EQ UCBSB_xG_MNT_COOPB+1 
7 ASSUME UCBS$Q_XG STATE_INFO EQ UCBSA_XG_F RARE ADDR+4 
¢ -BYTE NMASC_LIRPR_POT : Protocol is point-point 
7 -BYTE NMASC_DPX_FOL 3 Duplex is fu 
74 -BYTE NMASC_LINCN_NOR ; Controller mode is normal 
75 -BYTE 1 3; Number of receive buffers 
6 38 Currently not _ implemented 
7 BYTE : Set default Line speed 
a BYTE XGSC_WFCTS_SEC 3 Timeout on CTS 
7 -BYTE 0 3; Modem status after deassign 
9 BYTE ; Type of Loopb 
- LONG ; Address of BISYNC framing routine 
§ QUAD 3; BISYNC state info 
4 
5 DEF_LINE_PARAMSZ = .-DEF_LINE_PARAM 
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7 ?; | 
3 i 3 Default device parameters for DDCMP 
i BEF _SYNC_PARAM: : | 
D1 9 KSSUME XxG$B =PROTOCOL EQ xG$B, ERR cura of 
D1 9 ASSUME XG$B_TX_BPC EQ XG$B_PRO orate 9* 
M 9 ete | XG$B_RX-BPC EQ XG$B- TX ere 
D1 94 ASSUME XG$B"BA0D EQ XG$B_RX Spee 
D1 95 ASSUME XGS$B_NUM_SYNC EQ XG$B8_BAUD+1 
D1 38 ASSUME XGSB-SYNC_REG EQ XGSB-NUM_SYNC+1 
D1 9 ASSUME XGS$B_ICLK"EQ xG$B_SYNT_REG+1 
D1 38 tt NOSE ERR _CRC1G ; Error control cncle 
}) 9 -BYT XG$C_PRO_DDCMP ; Protocol is DDCMP 
D1 0 -BYTE XGS$C_BPC_ ; Bits per char - 
: D1 1 -BYTE  XGSC_BPC_ ; Bits per chee - 
D1 § ~BYTE XG$C_BRG_19200 3 Line speed 19.2 kbs 
8 01 8 -BYTE 8 3; Number of syncs to send 
D1 4 BYTE  XGSC_SYNC_DDC 3; Sync character 
D1 5 -BYTE XGSC_INTCCK_OFF ; No internal clock 
000000 4 $ DEF_SYNC_PARAMSZ = 7-DEF_SYNC_PARAM 
D1 
D1 5 i : Default device params for LAPB 


BEF_LAPB_PARAM: : : 
-BYTE XGSC_ERR_C ; Err control CRC-CCITT to 1's 
BYTE Keser we Set protocol 


Line speed 19.2 kbs 
No syncs to send 

no 3 character 

Set internal clock off 


36 
-BYTE at: —B 19200 


~BYTE XGSC_SYNC “a 3 
-BYTE XGSC"INTCCK_OFF 
DEF -LAPB_PARAMSZ = 7-DEF_LAPB_PARAM 


Sssssssss 
NOONWwO 


000000 
: Default device parameters for BISYNC 


ber _BISYNC_PARAM: : 
BYTE XG$C_N NOCON No error control 
Set protocol type 


Set default rcv Po its per char 


SoS 
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BYTE _BPC_ 3; Set 2126 xmt bits per char 
BYTE rest _BRG_ 19200 ; Set default Line speed 
-—BYTE 8 3 Set cotauts -funber of syncs 
-BYTE XGSC_SYNC BISYNC 3 Set syne 
-BYTE XGSC_INTCCK_OFF 3 Set phornal clock 

000000 DEF _BISYNC_ PRRAMSZ =.-DEF _BISYNC_PARAM 
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er 2 semesting Reeder baer, MECRERSHOEE SOSSESE WBA. SNESCCNRG®R manish 
vos *SBTTL_ CONTROLLINIT = Initialize Sync Line device | 

¢ CONTROL_INIT = Initialize Sync Line unit 

; FUNCTINAL DESCRIPTION: 


: This routine is entered at SYSTARTUP to initialize the sync line. The action 
3; is to set the interrupt vector on the combo. 


= Address of device CSR 
RS = Address of device IDB 
= Address of device DDB 
= Address of device CRB 


* R4,R5,R8B are preserved 
ONTROL_INIT: 

; Set interrupt vector in controller 
CvTB I1DB$B_COMBO_CSR_OFFS 


ET(RS) 
SUBBS IDB$B~COMBO- VECTOR OFFSET(R 
nae IDB$B~VECTOR(RS) , (R4)CROJ 


; OUTPUTS: 
to 
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nitialize the device unite, ‘S-SEp-19be ——— 
-SBTTL UNIT_INIT = Initialize the device unit 


: UNIT_INIT = Initialize the device unit 
; FUNCTIONAL DESCRIPTION: 


— 


se 


— 
22 


I 


=3 


An 
6 


32220382 


| 

; This routine is called when the driver is loaded and during powerfailure 
; recovery, It sets the unit status to Gn 1 Also, if called during 

; powerfail recovery, it shuts down the device. 

| 

| 


; INPUTS: 
; R4 = Address of the device CSR 
3 RS = UCB address 


; OUTPUTS: 
RS preserved 


UNIT_INIT: : Initialize the unit 
IF DF JNX$$$ 

pusher #*m<r0,r1 
movc5 #0-ucb6l 
popr #*n<r0,r 
-ENDC ;DF JNX$ 
IF DF DBGSS$ 


jsb g*ini$brk 
-ENDC = ;DF DBGSSS 


r2.r3,r4,r5> 
buffer(r5$ ,#0,#ucb$c_last_len,ucb$l_buf fer(r5) 
Y,re.r3.r4.r5> 


Bm 


BBC #UCBSV_ POWER ,UCBSW_STS(R5),10$ 


—">>>>>>>r>>>>>>>>>>>>>r>>>>r>>r>>r>r>rr 


E1 : Br if not powerfail recovery 
E1 BBC #XM$v_STS_ACTIVE,- ; Br if not previously active 
11 446A UCBSL DEVDEBEND (RS) ,108 : 
PU #°m<rRO,R1,R2,R5> 3 Save all registers 
54 0364 8F ¢ MOVZWL #SS$_ POWERFAIL,R4 : Indicate powerfail 
189 BSBW CHEB_FORK 
OF BA POPR #*M<RO,R1,R2,R3> 
5 RSB 


w 
eA 
ee 


BUG_CHECK NOBUFPCKT,FATAL 


This driver makes the assumption that IPLS$_SYNC, IPLS_TIMER and the drivers 
fork IPL are all equal. If any of these change the sotearit ry the driver 


can not be assured. THIS DRIVER WILL NOT WORK ON PRE VE SYSTEMS. 


ASSUME IPL$_SYNCH EQ IPLS_TIMER 


Also ASSUME that the following fields are equal, else the driver will get 
very confused as to where transmits and comps etes are coming from when 
running in any protocol mode other than DDCMP. 


ASSUME LAPBSQ_XMTQ EQ TFS$Q CTLO 
ASSUME LAPBSQ"CLEANQ EQ TFSQ CMPQ 
ASSUME LAPBSQ"BLANK EQ TFS$Q_RMTQ 
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ASSUME LAPBSB_XOCNT EQ TESB XOCNT 
ASSUME LAPBSQ"CLEANQ EQ BISY 

ASSUME BISYNCSG_BLANK EQ TF$O CTCG 
ASSUME BISYNCSQ"CLEANG EQ TFSO CMPQ 
ASSUME BISYNCSQ"XMTQ EQ TFS XATQ 
ASSUME BISYNCSB-XQCNT EQ TFSB_XQCNT 


3; We must also be sure that SYNCH and the drivers FIPL are the same. If this 
3 —— the integrity of the driver can not be assured with out some 
3 major changes. 


10S: cups #JPLS_SYNCH,UCBSB_F IPL (RS) ; If the IPLs are not equal then 
BNEQ 5 3; cause a fatal bugcheck 
PUSHR #*M<R4,R5,R6,R7,RB,R9,R10,R11> 
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: Set queue headers 


MOVAB UCBS$Q_XG_RCVS(RS) ,.UCBSO_XG_RCVS(RS) : Receive List 

AB UCB$Q"XG-RCVS(R5) .UCBSQ-XG_RCVS+4 (RS) 
MOVAS UFBSOTXETEREE CRE? VEBSOnNCCEREESceRS) eree buffer List 
MOVAB UCBSO-KG"RCV. INPR(RS) .UCBSO_KG_ RCV. IPR. RS) : Rev inpr List 
MOVAB UCB$Q"XG-RCV~INPR(R5S) .UCBSQ-XG RCV INPR+4 (R55 

uCcB Q7XG-POST (RS) ,UCBEQ_XG_POST(RDY ; Post List 

MOVAB UCBS$Q"XG-POST(R5) -UCBSQ-XG_POST+4(R5) 
MOVAB UCBSQ"KG_ATTN(RD) .UCBSQ_XG"ATIN(RS) : Full buffer List 
CERO” UEBSETXGCRAT INPRERSS emt NPA ERS) 
CLRL UCBSL-XG_ASTTRS) : Attention AST Listhead 


If DF ERRSSS 

ASSUME UCB$W_XG_RCVLAT EQ UCBSW_XG_XMTLAT+2 

CLRL UCBSW_XG_XMTLAT(RS) 3; Set no errors on device 
-ENDC = ;DF ERRSSS 


BSBB INIT_PARAM 3; Set all default values in device 
MOVAL ucBsC_XxG TQE(RS) ,R4 3; Set the CTS TQE address 
MOVO &#XGSC~CTS DELTA, fQE$Q_DELTA(R4) : Set the delta time 

BISW #UCBSA_ONCINE ,UCBSW, STS(RD) 3; Set software status ONLINE 


POPR #*M<R4,R5,RO, R10,R11> 
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; Functional description: 


; Inputs: 
: RS = UCB address 


; Outputs: 


INIT_PARAM: 
MOVW 
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MO DEF SYNC 
MOVAB UCBSZ_xG 

Ove (R1)+,(R 
SOBGTR Ro, 30 
RSB 
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4 
xn Line Device Reiser 1 
Initialize parameters 


5 .SBTTL INIT_PARAM, 


37356-1986 80:30:41 
Initialize parameters 


3+ 
: INIT_PARAM = Initialize parameters 


; This routine is called to reset parameters when 


IRP = FIPL or higher 


RO-R2 are destroyed. 


#XG_DEF_BUFSI 
UCBSwW_DEVBuUFS 
MOVZWL #DEF _CINE_PARAMSZ,RO 
MOVAB DEF _CINE_PARAM,R 
MOVAB UCBSB_XG-SETPRM(RS) .R2 
(R1)47(R2)+ 


R 
MOVZWL #DEF_TRIB_PARAMSZ,RO 
MOVAB DEF _TRIB_PARAM 
MOVAB UCBSZ_XG 
(R1)4>(R2) 


MOVZUL #OEF SYNC_PARAMSZ,RO 


(R2) 


the unit is initialized. 


: Initialize the UCB 
3; Set default buffer size 


Set size of defaults in bytes 

Set address of defaults 

Set address of parameters 

Set next default 

Loop on all parameters 

Set size of defaults in bytes 

Set address of defaults 

Set address of parameters 

Set next default 

Loop gn all parameters 
ze of defaults in bytes 

Set address of defaults 

Set address of parameters 

Set next default 

Loop on all parameters 


trace" 


—B sal MAYRE,OMFR2 Syme Line Device Driver "er3eb=138e 00:30:41 EOMIVER.eaeaeopRiven.mar:1 2% “i 


$ IF DF JNXSSS 
eveteurvers 
vzbl u b$b_Last(r5),r0 
1 nev ,ucb$l _buffer(r5)Cr0J 
1 : nove a. rp$l-media(r3) 
131 bicl * c<jnx_size-1>,r0 
9 131 movb 0, ucb$B_Last(r5) 
9 1314 rsb 
9 1315 -ENDC ;DF JNXSSS 
9 1316 


4 
XGDRIVER = VAX/VMS DMF32 Sync Line Devic * 16-SEP-1984 00:43: AX/VMS Macro V04-00 Page 28 
ra Nt XMITFDT = Transmit 1/0 FDOT rout ine —8 98:53:97 DRIVER. SRCIXGDRIVER.MAR; 1 . hye 
131 »SBTTL XMITFOT = Transmit 1/0 FDT routine 
! 3; XMITFDT = Transmit 1/0 FDOT routine 
! 3 FUNCTIONAL DESCRIPTION: 
1526 ; This routine allocates a system buffer for the Q10. Then calls the 
} 5 ; common FDT routine give the buffer to DDCMP. 
! 5 3 INPUTS: 
1 : 3 R3 = 1/0 packet address 
1 3 R4 = Current PCB address 
1331 ; RS = UCB address 
: ! § : R6 = CCB address 
9 1 : 3; OUTPUTS: 
3 ! $ 3 R3,R4,R5,R6,R7,R8,R9 are preserved 
9 1338 :-- 
§ 9 1339 XMITFDT: 3 Transmit FDT routine 
OFS BF 68 8 9 1340 PUSHR #*M<R3,R4,R5,R6,R7,RB,R9> 
0167 ¢ gt 1 p 1341 CMPB =. #XGSC_PROTYPE_BISYNC,UCBSB_XG_PROTYPE(RS) ; BISYNC? 
1 1 1 4g BNEQ 3 Branch if not 
50 OC AC OD 4 134 MOVL P4(AP) ,RO 3: See if any state info was specifed 
1 8 1344 BEQL 4$ 3; IF EQL then none 
51 O b0 A 1345 MOVL #8,R1 3; Set size of buffer to check 
00000000'GF 16 4 1 £6 JSB G*EXESWRITECHK 3; Check for write acces 
50 60 7D 43 134 mova 3: Mov the info into RO and R1 
46 1 48 DSBINT UCB$B_FIPL(RS) $ S¥nc to gain access to UCB 
015¢ cS) 50 70 4D 134 MOVa RO,UCB$Q_XG_STATE_INFO(RS) 3 Move the info into the UCB 
3 1350 ENBINT 3 Resync to lower IPL 
57 6C 00 55 1351 4$: MOVL P1(AP) ,R7 3; Get address of buffer 
59 AC 0 58 1 26 MOVL P2(AP) RO 3; Get the size of buffer 
$8 1 5c 135 BEQL 1 : If EQL then size is zero 
42 AS 9 4 és ! 23 ae Rig UCOSU_DEVOUF S12 (RS) :; If GTR then report as error 
29 5 4 1 56 MOVL R7,RO 3; Set up RO and R1 for 
1 9 ODO 67 135 MOVL 9,R1 3 write access check 
00000000'°GF 16 $A 1 38 JSB G*EXESWRITECHK > Check the acc of users buffer 
51 59 A (C1 0 135 ADDLS #XMTQ$K_LENGTH,RI,R1 :; Get length of buffer to alloc 
rs 3 600 74 1360 MOVL R3,R6 3; Save the IRP address 
0000 00° GF 16 77 61 JSB GrEXE SBUF FROUOTA : Check quota 
49 50 ; 43 § BLBC RO,20$ : If LBC not enough quota 
00000000 ' GF 1 JSB G*EXESALLOCBUF : Allocated the buffer 
40 50 € 8 1364 BLBC RO, 208 : If LBC not buffer allocated 
33 D 1365 MOVL oR 3: Retreive the IRP 
i) . 3 96 MOVL R 3; Get buffer address in R8 
50 0080 D F 1 6 MOVL pcos 1B(R4) ,RO : Get the JIB address 
8 A 1 C 4 1 3 SUBL2 R1,J16 L_BYTCNT (RO) 3; Adjust buffered 1/0 
A 1 86 98 1 8 OVW R1, IRP$W_BOFF (R3) ; Save byte offset 
CA 9¢ 1 VL RZ, IRPSL~SVAPTE(R3) ; Save system PIF -- 
1A AO 137 L XMfQ$B_FCAG(RB) : Cle bits, not “Internal” IRP 
50 0167 C A AS 1 4 MOVZBL UCB$B_RG_PROTYPE(RS) ,RO : Get protocol type 
A ' Y? CASE R TYPE=6 ,<- 3 Pace on protocol type 


x R = VAX/VMS DMF32 Sync Line Devic . r 16-SEP-1984 AX/VMS V04- p 
ral tt MMITFDOT = at t i FOT rout Brive Hits 1 8: $3: 9% DRIVER. aXGD SRIVER.MAR: 1 tot (14) 
AB 1332 ond ate _ on DDCMP 
3 u 
over 30 $56) 1877 ss: os, Lopsoure i Granch to gopy into ay buff 
4 19 B7 1 BSBB ¢ tiitdi Byanch to common processing 
FB P EY B5ee 188) es: 66 fens RG. RS.R6.R7.RB,RO> £#F Ot Sen oreer 
0000900 "GF : . JMP — idae föa 
3¢ 0206 1384 10$:  MOVZWL $*#SS$_BADPARAM,R ; Set status for abort 
O38 BF BA O2Cd 1385 208; BOPR ” B-McRScRCORS ROCA? RB,RO> iY Sap ea er 
00000000'GF 17 5 é JMP G*EXESABORTIO 
30 DS (1 3 30$: BSBW COM XMITLAP 3; Call LAPB FDT routine 
zz BF BA 0206 1 POPR #*M2R3,R4,R5,R6,R7,R8,R9> 
00000000'GF 17 DA 30 JMP G*EXESGIORE TURN 
Ql4e 30 0260 1 9 40$:  BSBW COM_XMITBISYNC : Call BISYNC FDOT routine 
O3F8 BF BA O2E3 139 POPR #*MZR3,R4,R5,R6,R7,R8,R9> 
00000000'GF 17 0 E? 34 JMP G*EXESOIORE TURN’ 
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= VAX/VMS DMF 
COM_XMITFDT = Common ronan t FDOT routin 5=-SEP- DRIVER. SRCIXGDRIVER.MAR; 1 
ED 1 3 SBTTL COM_XMITFDT = Common transmit FDT routine 
ED g sCOM_XMITFDT = Common transmit FDT routine 
ED 14 9; : The allocated buffer is given to DDCMP where a header is added and if 
ED 14 : ossible the buffer is added to the transmit queue. The buffer 8 various 
ED 1 gi 3 information on the transmit as it progresses from the transmit to the 
4 12 t : completion queues. 
ED 1405 ; INPUTS 
ED 14 $ 3 a = IRP address 
ED 1407 ; RS = UCB address 
ED 14 8 3 R7 = Address of the user/‘‘Internal"’ IRP buffer 
ED 1409 ; RB = Address of allocated buffer 
ge 1919 : R9 = Size of user/"'Internal”’ IRP buffer 
ED 141 ; IPL = Fork IPL 
ED W014: OUTPUTS: | 
ED 1.15 ; = Status of operation 
4 y2i$ : 4 R8 are preserved 
" EP 1618 tom_XMITFDT: 
55 Db cD 141 PUSHL R&5 ; Save these registers 
55 0000 C5 09 6 EF 1420 MOVL UCBSA_XG_PRO_BUFFER(RS) ,R5 3; Get addr of start of TFB 
4 1 F4 1421 BEQL $ 3: If EQL device not active 
56 9A ‘ 14 § MOVZBL #DLKSC_XMTMSG,R6 : Set that this is a msg to XMT 
4 Be F9 14 CLRL 3; Clear error bits 
FDOe' 4 FB 1424 BSBW DDCMP ; Branch to set up the header 
55 8EDO 0 ff 1425 POPL 3; Restore the registers 
56 9 91 01 14 § CMPB #OLKSC_ACTNOTCOM,R6 : If EQL then protocol has not 
vs $he 14 BEQL 45$ been started 
z 57 4 €0 06 1428 BBS #OLKSV_XMTERR, Ag 35$ 3; If BS then roblem with XMT 
03 57 OA 4 OA 1429 BBC #OLK$v— —918 ‘R7.20$ 3; If BC no XMT's £9 _cenplote 
19E4 0 oF 1430 BSBW FINISH- 3; Complete all XMT 
1¢ 57.01 fo 11 1431 20$: BBS POLKRV “PRSTERR, R7, 40$ 3; Branch BS pera isent error 
57 0220 8F 8B 15 14 ; BITW #<DLKSA_XMTACK! : If EQL then XMT not put on 
— 1A 1 ? anh KS *OFULERR>, R? : either queue so abort it 
0120 63 («95 1 1435 TSTB BSB_XG_XSTATE(R5) : If NEQ then XMT'r is going 
9 12 14 § BNEQ it 
1 4 14 CLRL a : Set no status for qtert transmit 
0982 0 4 14 3 BSBW START TRANSMIT 3; Else start the xmt 
50 01 C 7 1439 308: MOVZWL aoe #SS$_NORMAL ,RO 3; Set normal return 
11 11 1229 BRB 0$ 
50 14 & C 1336 35$: MOVZWL § £858 _BADPARAN.RO : Set status 
oc 11 , ul BRB 08 
1 8 40$: SETBIT #XMSV_ERR_FATAL,UCBSL_DEVDEPEND(RS) ; Set fatal error 
144 
é 1303 incw ucbbye a9 waxg —RT 3; inc persitant error count 
8 FEMNbDc $ 
EF 11 14 9 BRB : Complete a as normal timer 
14 § ; will shutdown the device 
50 2004 BF 3C 1455 45$: MOVZWL #SS$_DEVINACT,RO ; Set the device is not active 


= VAX/VMS 


51 44 AS 0 


GUPV VV Be Be BS BB BB BP PEPE PPP PP PPP PPP EEE 


08 AB 31 80 
13 90 
OC A ws A} dO A 
1A AB 35 06 Ai ; 
ans 67 39 OB 
55 BER? A 
0 D 
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= Common transmit FDOT routin DRIVER. SRCIJXGDRIVER.MAR; 1 

1 : 508: nove UCBSL_DEVDEPEND(R5) ,R1 ; Set status for abort 

14 

1° : ;COP_BUFF 

14 : This routine takes the user or "‘Internal’’ IRP buffer which contains the 

148 3 message to send and writes it into the allocated buffer. 

1462 ; INPUTS 

1465 ; = Size 8 A⸗⸗⸗ buffer 

1464 ; R3 = IRP a 

199? § RB = Keates T allocated buffer 

14 § 3 R? = Address of buffer from wh ch to move data 

1? 3 R9 = Size of user/"‘Internal"’ IRP buffer 

14 ° ; IPL = FIPL from ALT_ENTRY and ASTDEL from XMITFDT 

1471 : OUTPUTS 

1376 3 8 is" is copied into allocated buffer 

Veg? ; 5 R9 are preserved 

1475 top BUFF : 

1976 MOVW R1 ere BUF _LEN(R8) ; Save the size of the buffer 
147 MOVB  S*#DYNSC BUFIO,- : Set that this is an XMT 
1478 39 —— 

147 MOVL xnTOSt sone ) 3 Save address of the IRP 
1480 ADOW3 Gatien LENGTH ; Get the msg size put header 
1481 XMTQ$W “ASGSIZE (RB) : for ohoree er count 

14 ¢ PUSHL R 3; Save RS before the MOV 

14 MOVC R9,(R7) ,XMTQSK_LENGTH(R8) ; Move data into system buffer 
tt pene R5 3; Restore R5 


x 


—8 


Iw 


+ 
ALT_ENTRY = Alternate 1/0 entry point 


This routine is called by the othe 
request to the driver. ‘“Internal"’ 


processed by the FDOT routines. 


Transport layer driver. 
INPUTS: 


R3 = IRP address 
R5 = UCB address 


IPL = Fork IPL 


FUSVSUSUSISUSUSTSVSISISISISIIOIIII 2 


FTICTICTICTICVICTICTICVICTICTICTICVICTUCTICTIC TIC TIC rIr ror TS 


1487 
14 
12 | 
4 
14 
14 
14 
1494 
1296 
1333 
14 § 
1500 
i 
1 
1504 
13 5 
3 13 § 
— 1 8 OUTPUTS: 
se 15 
43 1 ? RO = Status of the request 
2f 1 § ; R3 and RS preserved 
SE 1514 ALT_ENTRY: 
33 1515 IF DF JNX$$$ 
se 15 $ bsbw  fillbuffer 
$2 1 ENDC ;DF jnx$$$ 
38 43 =. 2004 BF 360 2 15 § MOVZWL #SS$_DEVINACT, IRPSL_MEDIA(R3) 
EO 0364 1520 BBS #XMS0_STS_ACTIVE,- 
03 44 A 66 1521 UCBSL ~DEVBEPEND (RS) ,5$ 
193 31 0369 15 : BRW 10_ DORE 
50 0167 C5 9A 6¢ 1523 5$: MOVZBL UCB$B_XG_PROTYPE(RS) RO 
1 1524 CASE RO, TYPE=6,<- 
Hise * 
71 1 Yee 
01 €0 0379 12 3 BBS #IRPSV_FUNC,- 
5B 2A A3 78 1 IRPSW STS(RS) ALT_RCVFDT 
0368 BF 7E 1 p PUSHR #*M<R3_R4,R5,R6,R7,RB,R9> 
593 a3 5 13 MOV ZUL TRPSW_BCNT (RS) .R9 
42.05 59 yl 1 : CPW Rg UCBS$W_DEVBUFS12(R5) 
A C 1534 BGTRU 108 
51 2A ; C1 1535 ADDLS 9, #XMTQSK_LENGTH,R1 
ooood0go'Gr fe % 1339 TSB. _-G*EXESALONONPAGED 
0 £8 98 1 : BLBC =—_-« RO, 208 
a3 88 08 A ee MOVE 83 
80 F 3 Ag 1 ty MOVE &#XMTQSM_INTERNAL,- 
F AS M4 4g XMTQ$B_FLAG(R8) 


¢ 5 
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-SBTTL ALT_ENTRY = Alternate 1/0 entry 


AX/VMS Macro V04 
DRIVER. SRCIJXGDRI 


mans 2% Gj 


r drivers to pass an ‘internal’ 1/0 
IRP‘s are not built via $Q10. 
The action here is to setup the IRP fields as if the packet had been 


In this driver, the alternate entry point is called by the DECnet 


ALL pertinent fields of the IRP are assumed to be valid. 


Accept an ‘‘internal'’ IRP 


Assume device inactive 

If BS status active 

device is on Line 

Else comp request in error 
Get protocol type 

Case on protocol type 


BISYNC 
Fall thru on DDCMP 
If BS then receive function 


Save registers 

Get the length of the buffer 
If EQL then bad parameter 

If GTR then report as error 


d the XMTQ Length 
IRP 


v e 
located the buff 


er 
not buffer allocated 
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areata ALT_ENTRY = Alternate 1/0 entry §-3 oats —83 DRIVER. SRCIXGDRIVER.MAR; 1 . 2) 
AQ 154 IF DF JNX$$S$ 
Ag 1 te mov r2 6 ⸗ 
A 46 -ENDC =; DF. jinx $$ 
7°: 3 AD 154 Vv @IRPSL_SVAPTE(R3) ,R7 3; Get interal IRP buffer addr 
FF AD 154 BSBW P_BUFF 3; Copy buffer into allcd buff 
FFSA 1 BSBW COM_XMITFOT ; Branch for common processng 
3 0 € B35 1 BLBC R 4 : If BC complete in error 
O3F8 BF BA Bb POPR #°A<R3,R4,R5,R6,R7,RB,RI> 3 Restore registers 
1554 
3 14 3C 1555 ips: MOVZWL Foes t_BAODORM. 1078 Rei⸗ aa ; Set abort status 
O3F8 8F a § $: POPR #*M<R3,R4,R5,R6,R7,RB,RI> 3; Restore registers 
1865 31 Cs , BRW 10_DONE : Complete the request 
$8 11 ee 1559 $3: BRB ALT_ENTRY_LAPB : Branch to LAPB support 
00 31 9 9 78: BRwW ALT_LENTRY_BISYNC : Branch to BISYNC support 
51 58 00 cB 1368 30S: MOVL RB,R1 3 Save RB it contains XMTQ buff 
rere 8 BA 33 138 POPR #*A<R3,R4,R5,R6,R7,RB,RI> ; Restore registers 
38 6 9 D2 1564 MOVL RO, IRPS$L_MEDIACR3) : Set status 
18¢ 1 6 1365 BRW TRANSMIT ~10_DONE : Complete deall the buffer 
Se 1G eich 
52 2C A3 00 D9 1368 “MOVL IRPSL_SVAPTE(R3) ,R2 : Is there a buffer to reuse 
1 8 DD 13 0 BEQL 1 :; If EQL then no 
2c A 4 DF 1571 CLRL IRPSL_SVAPTE(R3) ; Clear so not deallocated 
124 39 Ee 1376 BSBW ADDFREELIST : Else add it to the free List 
O13A 2 E 137 10$: BSBW COM_RCVFDT 3; Do common processing 
01 50 3 34 1308 BLBC RO, 208 ; Br if unsuccessful 
EC 157 
38 43 50 0 E 1377 208: MOVL RO, IRPSL_MEDIA(R3) 3; ‘et status 
1888 1 ‘ 1378 me BRW 10_DONE ; Complete IRP in error 
FS 1580: 
F3 1581 ; This routine is the alt entry point for the device when running LAPB or BISYNC 
FS 15 $ ; mode. Instead of simply checking the function bit in STS it must explicity 
FS 1583 ; check the function code in FUNC. It processes READ's eURITG'S and CLEAN's 
F3 1584 ; via this interface. This routine makes some assumptions. First that the 
FS 1585 ; interface will only take Logical read's and write’s. Second that the 
: ! § 3; io fields will not change. 
FS 1 3 : NOTE: When Looking at this ASSUME statement, pleaser remember that 
: ' 3 the values specified are in decimal not in HEX. 
F3 1 $1 ALT_ENTRY_LAPB: 
FS ; ALTTENTRY-BISYNC: 
F 159 ASSUME 1OS_WRITELBLK EQ 32 
f31 Be ASSUME IO$_READLBLK 8 3 
: ' + ASSUME I0$_CLEAN EQ 30 
50 20 A3 QA FS 1 Mi MOVZBL [oO PY LUNE CRS) RO ; Get the function code 
50 FC 8F- 8A F7 (1 38 BICB @*xXFC Pe ; clear all but the low 2 bits 
FB 159 CASE RO, TYPE=B,<- : Do the case off this 
FB 1600 XM{TLAPB, - 


ses" 
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1 
1 
1 


J 


76 


Device 34 * SEP- 


entry 


“SEP- 


=198¢ 80:20:97 


AX/VM * 0 
DRIVE SGD RIVER.MAR;1 


3; Fall thru on Clean 


roe 


RO = status return for request 
R3-R5 are preserved. 


LT_CLEANFDT: 
03 68 AS oat) £9 BBS 9— —Q : If BS then don't allow 


= =O GOOCCCOCOCOCOCOCOOCOOOOCOOOOOOOOOO 
DNV Tew 


BRW CLEA ; another clean to happen 
38 A3 4! He 108: MOVZWL #SS$_ABORT, IRPSL_MEDIA(R3) ; Set abort status 
1899 1 —— 10_DONE 3 Complete the request in err 
15 68 AS or B XG —34 32— ure DEVSTS(R5),10$ ; If BS then don't allow 
O3F8 8F #*MZR3,RZ_RS ROR? RO,RI> : Save registers 


£0 
BB PUSHR R 
SETIPL UCB$B_FIPL(RS) : Set IPL to fork 
9832 30 BSBW CLEAN ; Do the Clean processing 
O3F8 8F BA POPR #*M<R3,R4,R5,R6,R7,RB,RI> 
00000000'GF 17 JMP G*EXESGIORE TURN Return from procese ing 
ru 


IRP will get posted t 
10_DONE 


If-clean in progress abort 
any others that may be issued 


00000000°GF 17 108: JMP G*EXESABORTIO 


— — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — —— — 
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¥0e- 006 CLEANFDTJALT. CLEAME BT’ Perfors CLEANED SeSEPal984 BO;s0:44 LORIVER eaesucbotvee mars? 2% (33) 
5 * . SETTI. CLEANFDT/ALT_CLEANFDT = Perform CLEAN FDT processing 
$ ;CLEANFDT/ALT_CLEANFDT - Perform CLEAN FDT processing 
2 5 : rere routine sets up to ABORT all qutssenging XMT's. This function is 
19 ; valid only when the device is running LAPB. 
ele ; Inputs: 
614: R3 = IRP address 
15 ; R4 = PCB address 
1g : R5 = UCB address 
18 ; ALT_CLEANFDT only: 
‘ ; IPL = FIPL 
? ; Outputs: 
624 ; 
625 ; 
626 ; 
ue 
629 A 
6 
6 


— — — — — — — — 


* * ad 
—28 — —— 


4 -SBTTL XMITLAPB - Transmit LAPB/BISYNC FDT routine 


++ 
XMITLAPB = Special LAPB/BISYNC transmit routine 


This routine is called after a transmit buffer has been allocated 
and the transmit is to be given to the device. It’s called 
to get around the special checks done for DDCMP transmits. 


1 
1 
1 ; 
1 ; 
1 ; 
1 3 
1658 ; 
1656 ; 
1657 ; INPUTS R1 = Size of allocated buffer 
1 3 R35 = IRP address 
1659 ; R> = UCB address me " 
1 ° ; R? = Address of user or ‘‘Internal’’ IRP buffer 
199 3 R8 = Address of allocated buffer 
1688 3 OUTPUTS Transmit given to the board 
1992 : eee NOTE eee 
186 3; ALL messages for LAPB get inserted on an XMTQ, which sits at the same offset 
1998 3 as DOCMP's CTLQ, This is done to decrease the overhead involved on the queue 
168 3 management. Notice however that the bit indicating that the pescege was a 
1 Y 3 control message never set in the block. This means that when the interrupt 
1671 ; for the message is gotten the message will be complete via FORK DONE and 
1 3 eventually given to POST instead of being dropped as normal DDCAP control 
1675 ; messages are 
43 3; are dropped. 
1928 3; These routines are also called when the driver is running in BISYNC mode. 
1677 ; The handling of tranmits for the two protocols are very similar, therefor 
1978 3; they share this code. There is a difference in that the BISYNC messages 
1679 ; and the LAPB messages are queued to different queues. Bisync mode can not 
1680 ; take advantage of being queued to the DDCMP CTLQ because it runs 
1681 ; in half duplex. This means that the protocol must some times must wait 
12 § : for CTS to come high before transmit ing. The way the transmit code works 
1 ; is that is gets the first message off the CTLQ and if empty then off the Mo. 
1684 ; If it can send the message then it will otherwise it must put the message 
1685 ; back on a queue according to the XMTQ$8_FLAG's 
19 § 3; CONTROL bit is set. This bit also governs whether or not the message 
1 3: is complete via IOPOST. Since the BISYNC XMT message may be put on 
1688 ; the queue and must go thru IOPOST processing we can not use the same 
198 3 short cut used to queue LAPB XMT messages. Thus BISYNC 22* are queued 
1 3 to the DDCMP XMTQ, which is the second of the queues. The side effect is to 

4 1691 : increase the overhead slightly, but BISYNC is not destined to be a high 

? ! 4 3 speed prototcol 

4 1694 -ENABL LSB 

4 1695 COM_XMITLAPB: 
1 38 COM_XMITBISYNC: 

O3F8 8F 9 —162 PUSHR #*M<R3,R4,R5,R6,R7,RB,R9> : Save registers 
* 1899 XMITLAPBO * 
dee F 88 13 PUSHR #*M<R3,R4,R5,R6,R7,RB,RI> ; Save registers 
0167 C 1 7 CMPB «0s #XG$C_PROTYPE_BISYNC,UCB$B_xG_PROTYPE (RS) ; BISYNC? 
1 41 1 § BNEQ ; Branch if not 
50 404A D 443 17 MOVL AGP SL ABCHT RS) AO ; Should we update the state info 
1 447 1704 BEQL $ : If EQL then don't 


— 
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rea ht XMITLAPB - Transat t ckeever syne C FDOT rout §-8 oats 88: $3; % YORIVER. SRCIXGDRIVER.MAR; 1 we ib) 
015¢ C5 D 49 1705 (RO) ,UCBS STATE_INFO(RS) : Update the state info 
5 32 A § 3$: —Bu —8 BENTTRET RO : Get the Length of the buffer 
BEQ $ : If EQL then bad parameter 
42 AS 44 77. sare 4 gUCOOu DE VOUF SIZ (RS) 3; If GTR then report as error 
51 A C1 A if ADDL RO, @XMTQSK_LENGTH,R1 $ pe i XMTQ Length 
p 171 MOVL R3,R6 : seve t e IRP 
"GF 1 1 JSB G*EXESALONONPAGED : Al loc ocated: the buffer 
64 E 171 BLBC RO,40$ 3 buffer allocated 
3 D A 1 13 MOVL ROR 3 —338 the TRE 
p 171 MOV R2,R 3 Get buffer address in R8& 
80 F 1 1 MOV #XATOSM INTERNAL, = : Set that the 1/0 is from 
a at 75 (171 XMTQ$B_FLAG(R8) 3 an “Internal” | 
57 2c86 00 f ! 18 MOVL @IRPSL_ SVAPTE(R3) ,R7 3; Get interal IRP buffer addr 
BA 5 8 79 1720 5$: MOVW XMTQSW_BUFLEN(R8) 3 Save the size of the buffer 
A 1 7D (1721 MOVB ci BuF 10, xXMTQ$B -BUFTYP(R8) ; Set that buffer is an XMT 
C D l 17 j MOVL »XMTQSC_IRP(RB) : Save address on the IRP 
A q 8 3 Vy ? at *XMTOSW “MSGSIZE (RB) : Set message size 
V ox MSGHDR(R ; Copy the msg to send into bu 
24 a8 67 2 me Ve 5 —8 ER7) ,XMTQSB_MSGHDR(R8) i f 
04 1F AB 07 €E0 93 17 § BBS —30 INTERNAL ,XMTQ$B_FLAG(R8), 2108 ; a Ay: then at FIPL 
0498 17 8 SETIPL UCBSB_FIPL(RS) f s¢,3¢ o FIPL 
34 44 AS * E1 049C 1729 10$: BBC PXRSV erge ACTIVE uces, DEVDEPEND CR ) 08°: i? BC 9 inactyv 
54 0000 09 Al 1730 MOVL $A"XG_PRO_BUFFER(RS),R ; Get protocol buffer 
D6 «(1 D4A6 1731 BEQL eq t hen dev inactive 
D4A MP #XG$C_PROTYPE_BISYNC,UCB XG_PR ripe 3 3 QL then LAPB 
0167 c5 01 4 48 7 cHPB $ TYPE_BISYNC,UCBSB_ SrvPethS): If € 
24 B4 és 8 D4AF 1734 INSQUE (RB) ,@LAPBSQ_XMTQ+4(R4) : Insert XMT at end of queue 
120 i 353 5 148: tsi8 ure Bs6 _XG_XSTATE (RS) : If NEQL then XMT'r is busy 
1 0489 17 8 CLRAL R1 3 Set no status for start transmit 
ores 0 BB 17 3 BSBW START TAA ne 3 Else start the transmit 
1 C O4BE 1739 208 MOVZWL S“#SSS_N 3; Set for normal return 
51 44 A5 00 04C1 1740 MOVL UCBSL BEYDEPEAD (RS) 1 3: Set device depend field 
F POP #*A<RS,R4,RS,RER R9> ; Restore registers 
03F8 8 1741 R “M<R3,R4,R5,R6,R7,RB-RI i 
5 38 
124 
3¢ 1744 
1745 
1 1766 
a fies ire 
— 1} 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 
17 


CA 
38 43 14 CA 70s MOVZWL S“#SS$_BADPARAM, IRPSL_MEDIA(R3) ; Set abort status 
O3F8 8F C 40$ POPR rh oo gr. R5,R6, ‘R7, RB>RI> 3 Restore registers 
06 D BRW 10 3; Complete the request 
onre + D 508 POPR 8 R4,R5,R6,R7,RB_R 3; Restore registers 
38 43 D4 8F D MOVZWL aSS$ DEVINACT, IRPSL ROEDIACRS) : Assume device inactive 
1787 DF 4 BRW TRANSMIT_10_DONE : Complete the request in error 
E 3 If the device is cunning Bga FL half duplex mode the set the SELECT 
E § i flag in the the field XATQSB_FLAG so that RTS is dropped after each 
} Z 3 message 
05 44 A5 02 €1 E 5 0s: 73 #XMSV_CHR_HDPLX,UCBSL ~PEVDEP NO CRS) 65$ ; IF BC not half duplex 
E § SETBIT #XMTOQSV_SELECT,XMTQSB~ 45 3438* select in XMT buffer 
34 B4 68 of E 65$: INSQUE (RB) .@BISYNCSQ_ XMTQ+4TR4) ; ian XMT at end of — 
t F 8 BRB 
F 
ia 60 
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XGDRIVER = VAX/VMS DMF32 Syne ine Device — 16-SEP-1984 AX/VMS v04-00 Pa 

yon 008 RCVFDT = Receiv DT routine g- SEP 1984 88; $3; F YORIVER. SRE 4xGD RIVER.MAR;1 - 3) 
; ; -SBTTL RCVFDT = Receive 1/0 FDOT routine 

; RCVFDT = Receive 1/0 FDT routine 

FUNCTIONAL DESCRIPTION: 

The specified buffer is checked for pscoa tere ter. The buffer ogérese and 

; count are saved in the packet. T * IPL is set to device fork IPL and if 

; : message is availabl 2 operation is completed. Otherwise the packet 

s queued onto the waiting receive List. 


For requests specifing IOSM_NOW, /0 is completed with status of 
SS$_ENDOF ILE # no message Ts ava Sole when the test is made. 


SNS NII PO OOOSOAO 
OB NIA NE OS OOD NAN 


INPUTS: 
R3 = 1/0 pocket | address 
R4 = PCB addre 
RS = UCB oddrees 
R6 = CCB address 
R7 = Function code 
AP = Address of first 1/0 request parameter 


OUTPUTS: 
RO = Status of the receive request 


R3-R7 preserved. 
; Receive function routine 


Ba i i i i i i — Da De Di Di Be i i eB Be Be Be Be ————— 


Wurm 


50 14 Hs MOVZWL #SS$_BADPARAM,RO ; Assum Stent size 
51 04 AC MOVZWL P2(AP),R1 ; Get s 
1F 1 BEQL ei Br it ae specified 
20 g D ROVE Get buffer address 
38 A D MOVL RO, in Rpg MEDIA(R3) Save address 
30 B4 CLRW =—s I RPSW_BOFF (R3) 


No quota to return during 
completion 


00000000'GF 16 G*EXESREADCHK Check he accessibility 
(no return on no access) 
zun COM RCVEDT Synchronize access to the UCB 


le te the request 
error 
Return to await completion 
Abort the 1/0 request 
Don't return device status 


T10 
JMP SME RES CORETURN 


R1 
JMP 8 EXESABORTIO 


: : Connon receive processing 


tom. oACvE Br: Common receive processing 


Br if device active 


#XMSv_ 
UCBSL 
Aeun #SS$_5 ; Set return status 


so elt 


DW OUPININININIPIPPIPIPIPNINYIAIMUNININIMIAMINININIPINININIFIPIRIPD 
a a a — ——————— — —— a a ——— ——— — 
Sn Se i i ei 


2006900696069 09 0900 69 09 6909 09 09 09 09 08 INI INI 
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; Check for an avaiable message and complete the receive 


10$: peneut oycesa. XG_ATTN(RS) ,R2 ; peeyeue 2 a received message 


MOVZBL bee XG_PROTYPE (RS) ,RO bet’ protocol ty 


52 0004 p f 
9 
CASE { TYPE=B,< Case on protecel type 


D 
50 «(0167 C A 


— 

—* 

— 

o 

w 

— 
è⏑— 
Pe eet 
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- BISYNC 
Fall thru on DDCMP 
BRW FINISH -RCV_IO 3; Comp the 1/0 request 
: i Queue the requst for future message arrival ot IOSM_NOW specified. 
; Receives are queued to the special receive wait queue. 
iss: #10$V_NOW, IRPSW_FUNC(R3),20$ =; Br BS r 


BBS 3 ead NOW 
INSQUE (R35) gucesa, xG_RCVS+ 4(R55$ 3; Queue the 1/0 packet 
— S*ass$_ L,RO 3 Set Q10 status 


i i i kk kk kd — 
000 MEW OOO NOUS WO OOO 
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4 
4 
4 
4 
5 
38 43 =: 0870 8 f 3 40 208: MOVZWL #SSS_ENDOFFILE,IRPSL_MEDIA(R3) ; Set no messege status 
1750 5 4 BSBW 10_DO6N 3; Complete the 1/0 
01 f 5 4 MOVZWL —28 NORMAL ,RO 3 Set normal completetion 
: ri RSB 3; And return 
5 45 ; The RCV finish 10 routines are the same for both 
; r 3; the LAPB and BISYNC protocols 
62 42 A —E 055 48 30$:  MOVAL RCV_Z_HEADER(R2), (R2) : Set up point to data 
OC A C 6 4 2* RCV-W-MSGSIZ(R2) ,RO : : Get size of transfer 
1 0 6 85 BRW FINTSA_RCV_IO_LAPB : Go thru LAPB finish 10 
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-SBTTL SETMODEFDT, Set mode 1/0 operation FDT routine 


Sete 
+ 


+ 
SETMODEFDT = Set mode 1/0 operation FDT routine 
Functional description: 


This routine i — used to set the configuration of the DMF32 hardware device 

to. specit conf presi of software D —* Subfunction modifier bits are used 

fe speci y the type of action to be tak qn The two characteristics buffers 
1 and P2) are used to describe specif 


The Q10 parameters for SETMODE are: 


Pi = 202 address of quequerd or jonqueré buffer 
Ps = Optional address of buffer descriptor for extended characteristics 
= Number of receive buffers to pre-allocate. Required on 
controller startup. 


SFUSTSUSISISIN 


c¢ characteristics. 


The subfunction modifiers are as follows: 


o STARTUP - start the device - this modifier is used to 
start the device. 


© SHUTDOWN - shutdown the device - this modifier 
is used to stop the device. 


0 — = request an attention AST - this modifier is used 
o set up an AST to be delivered when a change of 
—328 occurs on this device. 


o CTRL - perform the request on the Controller not the 


OOOO OOO OO 0090909 090909 69090969 III IO ONE 


tributary. 

o SET_MODEM = set Line unit's mode register. 
Inputs: 

R3 = IRP address 

R4 = PCB address 

RS = UCB address 

R6 = CCB a cress 

R? = Function code 

AP = Ao tbe "el first Q10 parameter 
Outputs: 


RO = status of setmode request 
R3-R5 are preserved. 
R7-R9 = destroyed 
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5 
x 2 = VAX/VMS DMF32 Sync Line Device Betzee 16-SEP-1984 00:43: AX/VMS Macro V04-00 P 1 
Neen bO8 SETMODEFDT, Set code 1/0 operation FDOT =§ et} 90:53:07 DRIVER. SRCIXGDRIVER.MAR;1 —* (30) 
A 1910 SETMODEFDT: 3 Setmode FDOT pro i 
57 2003 3c 06a 191 ROVZUL 1RPSY_FUNC(RE) ,R7 : Get entire function cade 
57 QO 1 BBC #10$v_C Rt r7,5$ ; Br if not controller request 
OOAA 1 } ! : BRW SETMODE_C AL 3 Process controller request 
13 ; Perform setmode request on a tributary 
0167 65 O 3 TA 1317 Ss: we FSSC _PROTYPE _DDCHP.UCBSB_XG_PROTYPE (RS) ; NEQ then abort io 
2A 57 8 ef ji 13 BBC #1LOSV_ATTNAST ,R7,30$ :; Branch if not attention AST 
1 g 
13 : User is requesting an attention AST. 
57 0090 ¢5 oD 1924 ° MOVAL UCBSL_XG_AST(RS) ,R7 : Get addr of AST List 
00000000 ' GF 13 : 1925 JSB G*COMSSETATTNAST 3; Set up attention AST 
51 0004 ¢5 9 19 § MOVAB UCBS$Q_XG_ATTN(RS),R1 3: Check for empty rcv List 
1 ° 5 19 CMPL R1, (RT) 3; Empty? 
: 593 19 3 BEQL 20$ 3; Yes, no need to inform user 
3 595 1929 10$ PUSHL R ; Else, save IRP address 
Vag 0 0597 1930 BSBW pre USER : Inform the user 
: 8EDO O59A 1931 POPL R 3; Restore IRP address 
51 446A ge 59D 19 Rs: MOVL UCBSL_DEVDEPEND(R5),R1 3; Get device characteristics 
50 01 3 541 19 $: MOVZWL $“#SS$_NORMAL,RO 3; Set success 
00000000'GF 1 3A4 19 4 5$: JMP G*EXESFINISHIO : Complete the 1/0 
SAA 19 
O4CF 30 OQSAA 19 $ 30$: BSBW GET Suan BUTS : Get Pl and P2 characteristics 
30 29 E9 OSAD 1333 BLBC RO,40$ : Br if error = abort 1/0 
3257 07 €1 380 1939 BBC #10$V_SHUTDOWN,R7,50$ : Branch if not trib shutdown 
384 1941 ; Shutdown tributary modifier specified. 
384 1348 : Validate P2 buffer. Then update trib parameter block. 
90 0584 1945 ° MOVB S$*#XG_FC_V_STOP_CIR,- : Set internal function code 
21 A 58 1308 IRP$B_XGFUNC (R37 
52 444A 3c 60588 «6194 MOVZWL BER Se APE VDE PEND CRS) .R2 : Else, get status 
58 1308 35$: DSBINT UCBS$B_FIPL{(RS) 3 syne to get he ucB 
1DFB 30 ©6©O05C 13 SBW VALIDATE_P2_TRIB : Validate the P2 buffer 
36 1950 ENBINT 3; Restore IPL 
51 444A D c9 1951 MOVL urs " DEVDEPEND(R5) ,R1 3; Assume no error 
D4 5 E C 1938 BLBC R $ : Br if error 
8 132 DSBINT ucé FIPL(RS) 3 ayne to get the UCB 
066E 30 D7? 1954 SBW CHG_TRIS ; Change trib parameters 
DA 19556 ENBINT : Restore IPL 
048c 31 4 1328 RW QUEPKT 3 Queue packet to driver 
00000000 ' GF 17 } 1988 40$: JMP G*EXESABORTIO : Abort the 1/0 request 
52 44 a5 3C E 1399 50$: MOVZWL UCBSL_DEVDEPEND(RS) ,R2 ; Get status 
EA 130 DSBINT UCBSB_FIPL(R5) 3 Syng to get the uCcB 
1DCcD 30 Fl 38 BSBW VALIDATE_P2_TRIB 3 Validate the P2 buffer 
FE 1 ENBINT 3; Restore IPL 
E650 €9 OSF7 1964 BLBC RO,40$ : Br if error 
SFA 19 § 60$:  DSBINT UCB$B FIPL(RS) : Sync to get the UCB 
0644 30 0601 1966 BSBW CHG_TRIB ; Change trib parameters 


—88 SeYASGUPBOM'ER Sencat ing Dewice Bester uteuz BR:45:08 YA ere ote Raman: "90 (36, 


1967 ENBINT 3; Restore IPL 
0D 3 go $07 1388 BBS #10$V gig R7,80$ 3; Br if startup request 
0 1 6 138 MOVZWL S“#SS L,R 3; Else, set successful return 
51 4485 DD OE 1970 MOVL UCBSL BEVDEPEAD(RS) R1 : Set [0SB return status 
00000000'GF 1 612 1971 JMP G*EXESF I : Finish the 1/0 request 
8 90 061 1376 80$ MOVB —346 4 mitt CIR,- 3; Set internal function code 
21 A 61A 197 IRP$B-XGFURC(R3Y 
0440 = 31 eit 33 BRW QuEPKT 


N 5 
Oe 000" SEYRODE-ETRL, Perform setnode POT opera S-SEP=196e OO:20:11 EORIVER.SREINGURIVER.maR;1 “°° (33 


-SBTTL SETMODE_CTRL, Perform setmode FDT operation on controller 


++ 

SETMODE_CTRL = Perform setmode FDT operation on controller 
Functional description: 

This routine performs the SETMODE FDT setup for the controller. 


Inputs: 

R3 = IRP address 

R4 = PCB address 

RS = UCB address 

R7 = IRP function word 
Outputs: 


RO = status of setmode request 
R3-R5 are preserved. 


wn Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Se Ge Ge Se Ge Ge Ge Se 
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ETMODE_CTRL: ; Perform setmode on controller 
045A 30 BSBW GET GUAR BUFS ; Get Pl and P2 characteristics 
50 =«€9 BLBC RO,20$ : Br if error = Abort 1/0 
B3 BITW #<XMSM_CHR_CTRL!- : If NEQ then not multipoint 
XMSM_CAR _DAC>,- 3 control or DMC mode 
3c 43 0060 af - oe RPSC_MEDIA+4(R3) 
4 ‘ : Else set bad parameter 
50 144 3 D MOVZWL #SS$_BADPARAM,RO El t bad t 
6— 11 : BRB 20$ 
12 ; This clear of R6 assumes no protocol was specified. If this is true then 
13 ; the driver assumes that the user wanted DDCMP, and if a P1 buffer 
14 ; was speficied the driver will use the characteristics set in the buffer. 
' 3 The Pl buffer is not valid for BISYNC and LAPB modes, and will not be checked. 
56 Be . 2017 5$: CLAL R6 3 Assume no protocol specified 
51 0458 8F C 1 MOVZWL #NMASC_PCLI_PRO,R1 3; Check P2 buffer for multi 
9 1 DSBINT UCB$B _FIPL(RS) 3 Syne to get the UC 
1FOD 30 rh BSBW UNPACR_P2_BUF 3 point control specification 
4 ENBINT 3; Restore IPL 
14 e9 $6 BLBC RO,14$ 3; If BC then no prot specified 
38 9 4 MOVL R2,R6 : Set protocol type in R6 
4C CMPB #NMASC_LINPR_CON,R2 : If EQL then multipoint contrl 
a 4f BEQL : specifie 
52 4 91 1 CMPB #NMASC_LINPR_DMC ,R2 : 1f EQL then DDCMP DMC mode 
¢ HT 4 peat 198 3: specified 
50 ie 7 : 10$ 3 $_BADPARAM,RO ; Else set bad parameter 
52 68 we i 5D 14$ MOVZWL UCBSW_DEVSTS(R5S) .R2 : Get device status 
61 DSBINT UCBS$B_FIPL(RS) 3 Syne to get te UCB 
1064 30 68 BSBW VALIDATE_P2_uUCB 3; Validate the P2 buffer 


—8 — DDD— 


DE. 
NBINT 3; Restore IPL 
oF 9 ee ¢ LBC RO,20$ ; Br if error 
57 89 3 BBC #1684. SHUTDOWN,R7, 308 ; Br if not shutdown request 
, ; Shutdown modifier specified 
90 40 ° MOVB $*#XG_FC_V_STOP_LIN,-= : Set internal function cod 
24 A 338 ines XGFUNC (R37 ne eeSate 
0150 C 9A 79 4 MOVZBL UCB$B_XG_PRO(R5S),R6 : Set the oretecgt type for shutdown 
4 DSBINT UCBSB- FIPL(RS) 3 Sync to pet ¥ 
04F0 30 06 44 BSBW CHG_UCB F} yecees the UCB 
i 45 ENBINT 3; Lower IPL 
0 €1 8 BBC #XG_DS_V_INITED,- ; Br 4 controller not up 
03 68 A 6 4 ucesu * 0st STS(R55,15$ ; 
309 31 8 4 BRwW 3; Queue packet to driver 
51 44 AS 0 069 50 15$: MOVL vsest —W R1 : Get oes — 
50 ~=—01 — 069 5 MOVZWL #SSS_N RO 3; Set succ 
00000000 ° GF st : 17$: JMP SE SESP —— : tcnolete the 1/0 request 
00000000'°GF 17 en 038 208: JMP G*EXESABORTIO 3; Abort the 1/0 request 
OOAC 31 hg 828 25$: BRW 50$ ; Branch to compl request 
56 09 91 O6A9 328 30$: MPB —8* en. BSY,R6 3; If BIYSNC mode check privs 
D6A 5 IFPRIV 3; If priv o 
50 2 7 pee 9 es #58 NO SRIV, RO 3 else —34 the io request 
EB 57 Og 4 068 8 328: BBC #1O$V_STARTUP,R7,25$ ; Br if not startup request 
1 688 6 MOVB S*#XG_FC_V TRT_LIN,- ; Set internal function code 
$i A3 068D 64 IRPS$B-XGFURC(R3) 
51 8 at 3 pene 8 ROVZUL 4 <APT a ; If EQL then P3 not set up 
63 €1 c3 $8 BBC #XG_DS_V_INITED,~ : If BC then device not inited 
11 68 A 06C $8 UCBSW_BEVSTS(RSS ,33$ ; set number of buffers 
0153 C5 3 1 D6 CA : cnpe Ri ,UCBSB_XG_BFN(R5) ; Are t the buffer nmb's the same 
' 3 
51 451 BE $061 8 MOVZWL #NMASC_PCLI_BFN,R1 S Bee tekt votre 
0 14 3¢ 06D 3* MOVZWL #sss_ BADPARAM,RO : Set error return 
BF 1 06D 7 BRB 17$ 3; Finish the 1/0 request 
rt 74 338: DSBINT UCBSB_FIPL(RS) 3: Sync to get UCB 
0153 cS 51 90 E 75 MOVB Ni urese. KG _BFN(RS) ; Store new rcve buffer number 
wed i. ENBINT 3; Restore IPL 
GEA i Set new P1, P2 parameters 
02 E1 O6EA 9 $55 Bac #XG_DS_V INITED ~ : Br if device not already 
03 68 A> * BEC cash. BEDSTS(R § 368 : inited 
ore : 36$ DSBI ucB$B BoA OTATRS) 3 Syne to ost uCcB 
03 38 A 9 F 4 BLBC 4 MEDIAC(R3) ,37$ 3 fn 
44 A m4 F 5 CLRB UCBSL~DEVDEPEND (RS) 3 Tees J characteristics 
047 0 § 37$ BSBW CHG. UCB ; Change the UCB charac 
7 ENBINT : gostere, I 
0153 3 3 7 8 MOVZB UCBSB_xG BFN(RS),R1 nysber * receive buffers 
167 C of 4} 4 H Ha one C-PROTYPE_ a1sy NC ,UCBSB_XG _PROTYPECR If neq then branch 


C 6 
XGORIVER = VAX/VMS DMF32 Sync Line Device Driver 16-SEP-1984 00:43:03 VAX/VMS Macro v04-00 age 45 
yOe 008 SEYRODE CTRL, Perform setmode FDT opera miioets yi 69:35:93 DRIVER. SRCIXGDRIVER.MAR; 1 ° (21) 
1 91; 
4 $3 ; For BISYNC mode add an extra receive buffer. This buffer will be 
4 3 : gornenentty allocated to the device to do the acutal receiving of 
1 ¢ 3; data off the Line. The other buffers allocated will be used to 
4 4 ; receive the data after the data has been passed thru the framiing routine 
51 0O g0 71 3 ADOL2 $*#1,R1 
52 3 A ‘. 71 38 38$: MOVZWL sae MED Are aS) R2 3; Get message size from P1 
04 : A 71 9 BLBS  iRPSL-MEDIA(RS) abs ; Br uffer valid 
52 42 A € 0710 21 ? MOVZWL UCB$W~DEVBUFSIZ(R5) ,R2 ; Else, get buff size from UCB 
39 14 C 0721 2101 408 MOVZWL #SS$_BADPARAM,RO ; Assume bad parameter 
51 3 7 $ 1 ¢ MULL R1,R2 3 Compute total needed for buff 
4 7 1 BEQL 608 : Br if zero - error 
3 C 0729 2104 MOVZWL R2,R7 3; Copy quota 
7 if 72C 2105 CMPL R2,R7 3 Overflow? 
4 2 O72F 21 6 NEG 608 : Br if error 
53 DD 07 1 PUSHL R 3; Save 
00000000'GF 1 7 108 JSB G“*EXESBUF QUOPRC 3; Check col jor"s quota 
BED 7 109 POPL R3 3; Restore R 
36 E 73C «2110 BLBC RO 608 ; Br if error 
40 a3 8 73— 2111 MOV R7, IRP$W_QUOTA(R3) ; Save quota in packet 
50 0080 gs D 243 118 MOVL ces. JIB(R4) ,RO : Get JIB address 
A UBL oJ _BYTCN ; Charge user for rec. bufs 
20 AO 7) a ree \i7 SUB R I16$L_BYTCNT (RO) Ch f buf 
74C 2115 ; The following call is used to allocate a buffer size dependant on 
74C 178 3; the protocol, for use with the various protocols supeer ree If the 
74C 2117 ; routine returns with LBC then the buffer could not be allocated and 
me 118 3 the device can not be started. 
9037 3 74C 120 BSBW ALOE PROT_BUFFER 
2 39 4 74F 2121 BLBC RO,608 ; If LBC then abort startup 
031 1 ie 1 § BRW QUEPKT 3 Queue request to driver 
73 ' : 3; No modifier specified - change controller parameters 
% 1 ; S0$:  SETIPL UCBSB_FIPL(RS) : Sync access to UCB 
0 £0 0759 21 BBS G_0S_V_IN p - ; Br if already inited 
1p 68 A 138 1 3 CBSW_DEVSTS(R5S ,70$ ; 
03 38 A 9 07 1 BLBC —sIRPSL“MEDIA(R3) ,53$ : Br if no Pl buffer 
44 A 4 076 130 CLRB UCBSL~DEVDEPEND (R5) 3; Clear old UCB characteristics 
0410 0 076 131 538: BSBW CHG_UCB 3; Change UCB parameters 
50 01 C 076 1 § MOVZWL S“#SS$_NORMAL,RO 3; Else, set success 
51 64 A5 DO 0768 21 MOVL UCBSL_BEVDEPEND(RS) ,.R1 : Set [0SB1 return 
00000000'GF 1 rer ! : 55$ JMP G*EXESF INISHIO ; Finish the 1/0 request 
00000000'GF 17 778 ' § 60$ JMP G*EXESABORTIO ; Abort the 1/0 request 
ore \ 3; Device already inited - set new parameters and give them to device 
OF 38 A 34 778 2140 70$: BLBC IRPSL_MEDIA(R3) ,80$ ; Br if no Pl buffer 
CA 1 O77F 214 CMPB  =—s I RPSL“MEDIA#4(R5) ,- ; Are characteristics okay? 
44 A 7 2 148 CBSL~DEVDEPEND(R5) 
8 a o 14 BEQL ; Yes - let it go 
0 4 3¢ 07 3 144 MOVZWL #SS$_BADPARAM,RO ; Return error 
1 01 cf 7 145 MNEGL “#1,R1 3 No spec fic parameter 
€1 : 128 BRB 5$ ; Complete the 1/0 
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UCBSB_FIPL(RS) 
CHG_UCB 


eiSac> RO 
Sass, NORMAL ,RO 
UCBSL_BEV VOEFENDCRS) , R1 
G*EXESF I 
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Set only four parameters 
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xX 
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ss 


50 0167 es 


51 = 2C 000001C& 0 
51 
51 0000074 6 BF 


08 ne 
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= VAX/VMS at 
ALLOC_PROT_ 
A 
A 
A 
7A 
7A 
7A 
7A 
7A 
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ra 


gee 


This routine allocate 
protecots 


— 


INPUTS R4 = Address of the PCB 
OUTPUTS R2,R3 are preserved 


ce rather than in the 


* Be Se Se Se Ge Se Ge Se Se Sete 


Ai Loc he ie oe R2.R3> 
MOVZBL UCBSE KG PROTYPE (RS) ,RO 
c TYPE=B,<- 


ASE 106. Y 


#TFSK_LENGTH, #GFSK_LENGTH,R1 
SL APBSK. LENGTH,R1 
308 


#BISYNCSK LENGTH,R1 
JSB eee $BUFFRQUOTA™ 


ADDL3 
B 


en ne ee TN 
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-SBTTL ALLOC_PROT_BUFFER, Allocate a buffer to be used by the protocol 
;ALLOC_PROT_BUF FER - Allocate protocol buffer routine 


the buffer needed for operation of each of the 
hat the driver supports. By allocatin 


the buffer on startup 


B we can eliminate some overhead 
having the device but using a protocol other than DDCMP 


3; Get protocol type 
3 pees on protocol type 


; BISYNC 
; Fall thru on DDCMP 


Alloc DOCMP buffer the TFB and GFB are allocated contiguously 


Set LAPB buffer size 


Set BISYNC buffer size 
Does the user have quota 


BLBC RO,40$ ; If LBC no quot 
JSB OE SALLOCBUF : Allocate the buffer 
BLBC RO,4 3; If LBC then not allocated 
MOVL. PCBSL — 0 Get the users JIB 
SUBL2 Ri JI6 — i 3; Subtract the quota 
DSBINT Ucéie 3; Synch to gain access to UCB 
MOVL a Ken PRO_BUFFER(RS) 3 Save the buffer address 
ENBINT 3; Enable interrupts 
MOV UCBSW_SIZE(R2) 3 gove the “2 x. * BUFFER allocated 
MOVW e148 YNSC BUF 10, UCB$B_TYPE(R2) but ter 
cHPB ix Hi _PROTYPE ped OcB$B_xG  protvee tr 
PUSHR 3 Bench) 2 * R4,R 
moves 8 rae Ros — . TFSK_LENGTH(R2) 
MOVB B FTPL CR iit FIPL+TFSK HENGTHCRB} : Set fork IPL for DDCMP 
MOVB UE Ht DIPL(R5S) corse. gs hs LENGTH(R2) Set device IPL for DDOCMP 
MOVAL TFSK gGENGTH (RES TFSA_GFB(R2) : Set address of global field 
35$: MOVZWL $*#S NORMAL .RO : Set successful return 
40$: 54 a*n ass. 


<= 
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-SBTTL SENSEMODEFDT, Sense Mode 1/0 operation FDT routine 


++ 

SENSEMODEFDT = Sense Mode FDT routine 

Functional Description: 
This routine returns information to the caller about the configuration 
and status of the DMF32 device. Depending on the function modifier, 
either the device characteristics, error counters contents are returned. 
The Q10 parameters for SENSEMODE are: 


P1 = optional address of quadword or longword buffer 
P2 = optional address of buffer descriptor for extended characteristics 


Inputs: 

R3 = IRP address 

R4 = PCB address 

RS = UCB address 

R6 = CCB address 

R? = Function code 

AP = Address of first function-dependent Q10 parameter 
Outputs: 


RO = status return of sensemode request 
R3-R5 are preserved. 


OOD NID AE WI 9 SO OOD NIP © OOD NAN E WWI I WO 
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SENSEMODEF DT: : Sensemode FDOT 1/0 processing 
57 20 A3 80 MOVW IRPSW_FUNC(R3) ,R7 ; Get entire function code 
03 57 09 1 BBC #10$V_CTRL,R7,5$ : Br if not controller request 
1 BRW SEN L ; Else, process controller req. 
0167 ¢5 ‘ 7) 5$ ance #XG$SC_PROTYPE_DDCMP,UCB$B_XG_PROTYPE(R5) 3; NEQ then abort io 
57 0500 8F ag BITW Tonnes RD_COUNT!- : Check to see if either bit is 
M_CCR_COUNT>,R7 : Is set 
7A 13 BEQL $ 3; If EQL then read parameters 
0 Be CLR R ; Assume clear count 
3} 1 C MOVZWL S“#SS$_NORMAL ,R1 3; Assume success 
41 57 8 €1 BBC #10$V_RD_COUNT ,.R7,15$ : If BC then not read count 
; Read tributary counters - modifier RD_COUNT 
0296 30 BSBW CHECK _P2 : Check P2 buffer 
30 14 MOVZWL #SS$_BADPARAM,RO ; Assume zero length butter 
3C A 1 & 63 MOV R IRPSL_MEDIA+4(R3) > Save user size of P2 buffer 
F BEQL o$ ; Br if none 
4 i) 65 PUSHL R4 
51 1 t 66 MOVZWL S*#SS$_NORMAL ,R1 ; Assume success 


6 
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54 0000 ; Get prot buffer address 


? : 7 MOV BSA_XG_PRO_BUFFER(RS) ,R4 3 
: BNE 3 If NEQ@ then buffer exists 
32 43 8 ; MOVW #0, IRPSW_BCNT(R3) ; Else return no errors read 
? ; CLAL R 3; And complete the request 
1 : f BRB 20$ 
8 3 AG a 75 3$ MOVZ2WL TFSW_TEB(R4) .RO ; Get size of buffer needed 
CA 1 of i CPN RPSC MEDIA+A (RS) no ; IF GEQU then buffer ok 
51 oor} F C : 16 MOVZWL #SS$_BUFFEROVF a 3; Return partial success 
50 3c z 6 7 MOVZWL IRPSC_MEDIA+4(R3) RO : Set size of copy 
8B 5 A: 10$ PUSHR #°M<RO,R1R3_R4 RSD ; Save the registers 
62 018A C4 : MOVCS RO, TFSK EARS fRT (RG) . (Ra) ; Get the errors 
BA O08 POPR #°A<RO.RI,R “RG RS? 
16 57 A 5 5 BBC #10$v_€LR’ COUNT.R7,20$ : Br if not clear counts 
7 3 C 08 15$ MOVZWL B<DL KSA TRIB! DLKSM_CLEAR>,R7 i Set counters to read/clear 
SETIPL UCBS$B_FIPL(RS) ; Set to fork IPL 
BB 08 4 PUSHR 0,R1,R3,R5> ; Save registers 
D4 «(08 5 CLRL 3; Set no parameters to return 
2? 4 0 O€ $ MOVL R4,R5 3; Set address of trib block 
6 03 A 08 MOVZBL #DLKSC_REQEBA,R6 ; Set operation to gertere 
F761" 30 O8€ 3 BSBwW DCMP ; Branch to protoco 
¢ oA : POPR #*A<RO,R1,RS,R5> 
50 28 8 O€ 20$ ASHL #16,R0,R0 3 Shift size of buffer return 
acee : 4 —* R1,R0 3; Set success status 
51 446 AS 09 BAE 38 MOVL UCBSL_DEVDEPEND(RS) .R1 3; Set devdepend info 
: J x NISH 3; Complete the request 
00000000 ' GF 1 3 MP G*EXESFINISHIO C l h 
00000000'GF 17 O86 38 30$: JMP G*EXESABORTIO ; Abort the 1/0 request 
RRR 9 3 
BBE 38 3; Read tributary parameters 
51 — 5 BBE ° dos: MOVZWL $°#8,R1 3; Size of Pl buffer if present 
02 14 § BSBW C 3; Check P1 and P2 buffers 
30 1 C O8C MOVZWL S“*#SSS_NORMAL,RO 3; Assume sucegss 
3c A 1 BO 08C4 4 MOVW  R1, IRPSL_MEDIA+4(R3) > Save user P2 buffer Length 
2-9 +H 5 BEQL 60$ ; Br if no P2 buffer present 
M3 A 01 8B BCA : MOV S$*#SS$_NORMAL, IRPSL peo jace (ny) 3; Assume success 
A 9 8 BC MOV #TRIB_PRM_BUFSIZ IRP$W_BCNT(R3) ; Set size of required buffer 
1 e BD CMP R} #TRIB_PRM_BUFSIZ : 1f GEQU then user buffer is 
A BD 1 BGEQU § 3; large enoug 
3E AS 01 8F 8 BD 1 MOVW 4 he pyr renove [RPSL AEDIACECRS) : Return partial success 
32 A 1 8 BDD 19 MOVW 1, IRP$W_BCNT(R3) :'Set size to use in move 
5] F 3 CF 9& O8E1 2313 50S MOVAB trie PARAM,R1 : Get address of return table 
4 01 & BE6 14 MOVAB UCB$Z_XG_DOCMP(RS) ,R4 3; Get trib param block address 
{Cc BEB 15 BSBW RETURR_P2 3 Return the P2 parameters 
50 324A 8 BE 1 MOVW IRPSW_BCNT(R3) ,RO : Return size of buffer 
50 50 1 Wd 1 ASHL #16,R0,R0 : Shift size of buffer return 
50° 3E A 6 1 MOVW IRPSL_RMEDIA+6(R3) RO : Set success of return 
52 38 a3 g BFA 60$ MOVL [RPSL _MEDIACRS) .R2 : Retrieve Pl buffer address 
04 BF BEQL 0$ :; Br if none 
$¢ 40 4 9 mova UCBSB_DEVCLASS(R5) , (R2) : Else, return characteristics 
A D 3 VL UCBSL_DEV N , ; Get device dependend info 
i 9 70$ MO CBSL~DEVDEPEND(R5S .R Get d dependend inf 
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00000000'GF 17 0908 2324 JMP G*EXESF INISHIO : Complete the 1/0 request 
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-SBTTL SENSEMODE_CTRL, Perform SENSEMODE FDT processing for controller 


—WB —R 


+t 

SENSEMODE CTRL = Perform SENSEMODE FDOT processing for controller 
Functional description: 

This routine performs all FDT checking for a controller ag request. 
The P2 bu uffer if —58*8* is check ——z access and if o a as sten 
yt cee $s a° Located rer temporarily saving the needed fatera mation. 

Pi sensemode information is returned: through IRPSL_MEDIA and IRPSL — 


Inputs: 


DOONAN OOOne «+ 


WINALL AIAIIrorornon) oo 


RP address 

8 eagress 
dress 

* on code 


my 7 UE 


Outputs: 
RO = status return for request 
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SSL SS=SSSSSSSSS 
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09 
R3-R5 are preserved. 
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ENSEMODE CTRL: ; Process controller sensemode FDT 
BEC f BC not a read modem 10 
Else branch to read modem FDOT 


D 
* to see if either bit is 


if NEG then not read parameter 
else read parameters 

Get protocol type 

LAPS ° on protocol type 

BISYN 
Fall —* on DDCMP 

Assume clear count 

Assume success 

Check ter addr of protocol buffer 
If NEQ then buffer exists 

Else A... no errors read 

And complete the request 


#10$V_RD_MODEM,R7,2$ 

BRwW SENSE-MO 

$: BITW —B RD_COUNT!- 
OSm_CCR_COUNT>,R7 

BNEQ $ 

BRW 40$ 


857 oF 
57 0500 F «BS 


so ots i 


w 
et 
oz 
>oO 
nc 
~N 
wo 
Cc 


pecs ——— RO 


SS$_NORMA 
BSA_XG_PRO SUF FERCRS) 
1 


RPSW_BCNT(R3) 


DODDOOOOOOOOOOOOOONOODO 


iit 
37 

> 
CLRL RO 
MOVZWL S*# 
L tts 
iy 

R 

208 
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g 8$: BBC #10$V_RD_COUNT,R7,15$ ; Br if not read counters 
7 i Read controller counters - modifier RD_COUNT for DDCMP mode only 


; Check P2 buffer 
; Assume zero Length ppuiter 
; Save user size o buffer 
; Br if none 
; Assume success 


#58 Gab BAD 


IRPSL PACD 
iss: NORMAL ,R1 
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1 40 CBSA_XG_PRO_BUFFER Set address of protocol buffer 
i MOVIL & cps Cette SR _LENGT as? RO : Get re of Cte needed 


x * AX/VMS DMF32 Sync Line ice ms. r 1 -1984 00:43: AX/VMS Macro 04-00 Pa 
—W SENSEMOD Spe cTR TAL, bertorm $ NSEROD FD p §-§ set} 90:53:07 YORIVER. SRCIXGDRIVER.MAR; 1 ad (38) 
50 SCA 95 : ng I {Rest MEDIA*4(R3) ,RO 3; IF GEQU then buffer ok 
51 1 : MOVZWL east BUF FEROVF 3; Return partial success 
50 oft 4 C 096A —80 raat RO ; Set cise e? ce 
; 10$: —814 ave the reg store 
62 O1E7 C4 4 move —* — 5358 —EX—— 
4 BED? 97 POPL 3; Restore R4 
18 3 4 78 BBC siosy CLR_COUNT,R7,20$ 3; Br if not clear counts 
7 5 t 7 92 158: MOVZWL <OLKSA GCOB!DLKSM. CLEAR>,R7 3: Set counters to read/clear 
9 SETIPL uc B FIPL(RS) ; Set to fork IPL 
8 3 PUSHR M<RO,R1,R3,R4,R5> 3 Save registers 
0 CLRL 3; Set no parameters to return 
55 9000 f 0 38 VL UCBSA_XG_PRO DETERS? RS ; Set address of protocol buffer 
6 A 9 MOVZBL #OLKSC_REQEBA,R : Set operation to perfore 
F668" 30 3 BSBW ; Branch to protoco 
BA 9 POPR reo) oR3,R4,R5> 
50 28 1 4 4 , 20S: ASHL 3 Shift size of buffer return 
0 51 8B 4 MOVW R 3; Set success status 
51° 64 AS 00 4 : MOVL § UCBSL_DEVDEPEND(RS) ,R1 : Set devdepend info 
00000000'GF 1 : ? JMP G*EXESF INISHIO : Complete the request 
00000000'GF 17 rt 5 30S: JMP G*EXESABORTIO : Abort the I/0 request 
SA 11 r : 35$: BRB 80$ 
50 01 3C 4 } 37$: — —33 NORMAL ,RO 3; SET success and no data returned 
48 si aiy BRB 3; Exit from sensemode 
tig 3 3; Read controller parameters 
51 08 5 414 40S: noyu $*#8, Rl : Size of Pl buffer if apresent 
0126 415 BSBW CHECK rine 3; Check P1 and re 6 buf 
30 1 218 MOVZWL So re 3; Assume success 
3c A 1 dD 41 MOVL 1 IRPSL OnCD TASe (R3) ; Save user P2 buffer length 
2 } 48 BEQL i : Br if no P2 buffer 
1 8B 4 MOVW $“#SS$_NORMAL , IRPSL dd im Hf 3 Assume success 
32 ase 0054 F B 4 MOVW INE_PRM_BUFSIZ,IRPSW_BCNT(R3) ; Set size of required buffer 
005A 1 81 4 é CMP #LINE_PRM_BUF SIZ : If GEQU then user buffer is 
A 4 BGEQU ; large enoug 
3E AS eee" £4 424 MOVW a35$ pur renove {RPSL RED IACGIRS) 5 Return partial success 
32 A 1 8 425 MOV IRPS$W_BCNT(R3) :'Set size to use in move 
51 F6A1 CF 4 § 50$: MOVAB PARAM,R1 3; Get address of return table 
54 5 4 4 MOVL 3 Get Line par m block address 
18 4 BSBW RE TURN P2 : Return the P paraneters 
50 32A 8 429 558: MOVW IRPS$W_BCNT(R3) ao 3 Return ize of buffer 
0 $50 1 4 ASHL #16,R0,R 3 Shift size of buffer return 
50° 3E A 4 MOVW IRPSL_MEDIA+6(R3),RO ; Set size of return 
52 38 a 9 4 3 60$: MOVL t. MEDIACR3) , R2 : Retrieve P1 buffer address 
434 BEQL $ ; Br if none 
; 40 A 435 mova UCBSB_DEVCLASS(R5) hs 3; Else, return characteristics 
44 A ? & § 70$: MOVL UCB SL etinion RSS R 3; Get device dependend info 
"GF ? JAP G*EXESF INISHI : Complete the 1/0 request 
00D6 30 4 § 80$: BSBW CHECK_P2 : Check P2 buffer 


XGORIVER = VAX/VMS DMF32 S$ Syne Line ice 5.8 f 16-SEP-1984 00:43: AX/VMS Macro V04-00 Pa 3 
Yen O08 SENSEMODE _CTRL, bertorm —ER PDT p §-§ sets 8:53:99 YORIVER. SREINGDRIVER. MAR; 1 - (a 
3 A3 4 9 44 CLAL sack rk — 3; Clear PSI never passes P1 
F A 44 PUSHR 
3E A Al 44 MOVW S$ NORMAL IRPSL_MEDIA+6(R3) ; Assume success 
56 1 C3 OAIB 244 SUBL3 ; APB R_ERRENO, — ERRSTRT, Rb Set size of LAPB error buffr 
4 0 ? A ree MOVL SA_XG_PRO_BUFFER(RS),R : Set a qdress of protocol buffer 
A 44 BNEQ : : If NEQ then buffer exists 
32 43 : ° " rr nove ] gi AP OU _SCuT CRS) ; Else return no errors read 
56 1 * 429 228 85$ CMPW R1,R6 :; IF gequ then buff is large 
Ae 264 BGEQU 3: encugh 
3€ A3 * E ‘3 —8 #SS$_BUFFEROVF ,IRPSL_MEDIA+6(R3) ; Set error 
32 a 8 A ; 452 90S: MOV R6, IRPSW_BCNT(R3) 3; Set size of transfer 
BB A 43 pusHR #°A<R3,RZ,R5> 
62 12 44 tH 4 4 move RG LAP SK: -ERRSTRT(R4), , (R2) : Copy counters to user buffer 
18 AS Bh AS 686 CLRB — —3 ; Clear the counter 
005 of BA OA47 245 POPR <R4—R 
D 11 0448 2458 BRB Ss ; Jump to complete the req 
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~SBTTL SENSE_MODEM = Perform SENSEMODE READ_MODEM FDT processing 
SENSE. MODEM = Perform SENSEMODE READ_MODEM FDT processing 
i This, rout ine pee teres all FDT checking for a SENSEMODE A Ree reqeust. 


Wr—O 


; The buffer is checked for write access and the request queued to 
; ; the — 35 
Inputs: 
R3 = IRP address 
R4 = PCB address 
Re = UCB address 
R? = Fucntion code 


Outputs 
RO = Status for return 
R3-R5 are preserved 


iz 


ENSE 85 
OVZWL $*#4,R1 3; Size of Pl buffer 
Ps CHECK_ P1 3; Check access to P1 
3; (no return on no access) 
BSBW ALLOC_P2BUF 3; Allocate a P2 buffer 
BLBS ; Branch if success 
BRW ABORTIO : Else abort the request 
10$: “Cc IRPSL_SVAPTE(R3) 3 Get system buffer address 
OVL IRPSL_MEDIA(R3), 65a. L -BUFFER(RI) ; ; Set user buffer VA 
CLRL PSL_MEDIA(R3) lear buffer 
MOVB XG_FC_V_READ_MODEM, IRPSB_ noFUNciR ; "set funcition 
3BRB PKT ve request o driver 


: : 1/0 request packet to driver 


WODNAUNES WIN OS O OONOUS 


duepxt: 
SETIPL UCBSB_FIPL(RS) 3; Queue packet to driver 
JSB G*IOCSINITIATE : Initiate 1/0 reugest 
JMP G*EXESQIORETURN ; Lower IPL, and return 
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Get and P2 characteri 5-SEP-1 


-SBTTL GET_CHAR_BUFS, 
Functional description: 


non-paged pool. The user's quota 


R3 = IRP address 

R4 = PCB address 

RS = UCB address 
Outputs: 


RO = status of buffers 


0 

4 

5 

; ; R3-R5 are preserved. 
4 * 

1 GET_CHAR_BUFS: 

; ; Check access 

5 


Sra ah ah ahhh dh deh edb dh dh hh dba hh hb beh beh bbb ubbubbesbesh sh sh sh ah abeabeal eal al al al al aleal eal eal 


CLRQ  —sIRPSL_MEDIA(R3) 
§ Rov. OASAPT Re 
; MOVZWL sss ACCVIO,RO 
IFNORD #8, (R2),20$ 
40 MOVa © (RO), IRPSL_MEDIA(R3) 
41 MOVE #1, IRPSL_MEDIA(R3) 
‘§ 3; Check access to P2 buffer and check process's 
45 10$: nmovu (AP) .R2 
46 BEQL 40$ 
4 MOVZWL sss ACCYIO.RO 
4g IFNORD #8, (R2),20$ 
4 MOVZWL (R2),R1 
20 BICL #i,ri 
BEQL 40 
: MOVL § DSCSA_POINTER(R2) ,R2 
MOVL RO 
4 PUSHR @# ACRE R3> 
5 JSB G*EXESWRITECHKR 
3? eee G*EXESBUF QUOPRC 
8 15$:  POPR Bait eth 
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Get P1 and P2 characteristics buffers 
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++ 
GET_CHAR_BUFS = Get P1 and P2 characteristics buffers 


This routine saves the P1 and P2 buffers for Later use by the driver. 
The Pl buffer is saved in the IRP (IRPSL_MEDIA) 
The P2 buffer is saved by pi teceting thee * 
s checke 
And the non-paged pool buffer is charged against the use 
system buffer Sidress is passed in IRPSL_SVAPTE of the iRP. 


9s @ quadword value. 
r 


ate amount of * from 
on is 


efore the allocat 


gate. 
$ quota. The P 


to Pl buffer and save P1 characteristics 


Reset P1 chars 

Get address of P1 char buf 
Branch if no P1 buffer 
Assume access violation 
Check access 

Save Pl characteristics 
Indicate valid P1 buffer 


uffer quota 


Get address P2 char buf desc 
Br if no P2 buffer 

Assume access violation 
Check access to descriptor 
Get buffer length in bytes 
Must be multiple of 2 
Br if size is zero 
Get buffer address 
Copy butter address 
Save R2, R3 


ytes 


Check entire buffer 
Branch if error 
Check for buffered quota 


Get characteristics buffers 
Restore R2, R3 
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x R = VAX/VMS DMF32 Sync 
04000 GETACHAR-BUFS, Ge 


and 63 ie ever, SSEp-19be Oors0s1i 


BLBS RO, 308 
RSB 


OKAY, allocate buffer and copy info. 
BSBW ie ¢ .P2BUF 
TRESL L SVAPTE(R3), ,RO 
PUSHR 
MOVC3 be PoE 1 _DATA(RO) 
P yy A<R3,R4,R5> 
$*#SS$_ NORMAL RO 
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; Branch if quota ok 
Return 


Bt Locate Bs hd 


r ife 
Get p2° buffer address 
—2 r* Fe registers 
Save char buffer 
Restore registers 
Set success 
Return 
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CHECK _BUFS, 
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-SBTTL CHECK _BUFS, Check P1 and P2 buffers for write access 


CHECK _BUFS = Check P1 and P2 buffers for write access 
; Funct ional description: 
t this routines checks the P1 and P2 buffers for write access if supplied. 
Inputs: 


a} = Siz 

R35 = IRP address 
R4 = PCB address 
9 = UCB address 
R7 = 

R9 = 


R1 = Length of P2 buffer (zero if ,no P2 buffer) 
R2 = Address of P2 buffer in user's process space 


RO-R2 are destroyed. 
No RETURN on NO ACCESS 


Implicit Outputs: 
IRPSV_FUNC bit set in IRPSW_STS by EXESREADCHK subroutine. 


CHECK _BUFS: 


CHECK_P2: 
CLR 


>—_ 


So 
* 


CCESS: 


CHECK_P1 


R1 
XRub P2(AP) ,R2 
as og #8 CRs} -ACCESS 


V (R2) R 
IC at 
SC$A_POINTER(R2) ,RO 
JSB *EXESREADCHK 
MOVL  RO,R2 


MOVZWL #SS$_ACCVIO,RO 
BRW ABORTIO 


Check P1 buffer 


Assume no P2 buffer desc 

Get gedress of P2 desc 

Br if n 

Br if * access 

Get length of buffer 

ng Ay multiple of "2 bytes 
r 

Get buffer address 

Check write access to buffer 
(no return no access) 

Also sets IRPSV_ FUNC in IRP 

Copy buffer address 

Return to caller 


Return access violation 
Abort the I/0 request 
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-SBTTL CHECK_P1, Check P1 buffer address for write access 


PAO 


=O ONO UE WN 9 OD NOUS WN O OONOU SW" O0OOn~ 


3¢ 


+ 
; CHECK_P1 = Check P1 buffer address for write access 
; Functional description: 


This routine checks the P1 buffer and if okay, the buffer address 
is saved in IRPSL_MEDIA of the IRP. 
Inputs: 
R1 = Size of — for write access 
R3 = IRP addre 
R4 = PCB edaress 
RS = UCB address 
R7 = Function code 
R9 = COB address 
Outputs: 


RO is destroyed. 
No RETURN on NO ACCESS. 
Implicit Outputs: 


IRPSL_MEDIA(R3) = User P1 buffer addre 
IRPSV_FUNC bit set in IRP$W_STS by EXESREADCHK subroutine. 


CHECK_P1: 
CLRL 


PARAEDARAAAAPA AA AAA AAP AA AA AAA AA AA AA AAA AO 
PAARL MIMANMNN MII PEPPERS 


NMWDOVwmovovvVTVT TV VTVTVTVVTVCVTVTVVVTVCVVCVCVCVCTVCVCCCCC0C000C 9 


SSSSSHOHO SOSH SOOO SOS OSHS SOOO OE 


38 43 64 IRPSL_MEDIA(R3) 3 Assume no P1 buffer 
50 6C 00 MOVL P1(APY,RO : Get address of user buffer 
OA 1 BEQL 10$ : Br if none 
00000000'°GF 16 JSB G*EXESREADCHK 3; Check access to porter 
664 3; (No return = no access) 
38 43 50 20 5 MOVL RO, IRP$L_MEDIA(R3) ; Save P1 buffer address in IRP 
05 666 10$: RSB 3; Return to caller 


<x 
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ALLOC_P2BUF, Allocate a P2 buffer and c SEP- DRIVER. SRCIXGDRIVER.MAR; 1 
: é -SBTTL ALLOC_P2BUF, Allocate a P2 buffer and charge user's quota 


+ 

ALLOC_P2BUF = Allocate a P2 buffer and charge user's quota 

Functional description: 

inte routine allocates a system buffer ard returns the address in the IRP at 
IRPSL_SVAPTE. The size of the allocation, including buffer header must 

be at least 24 bytes in length. 

Inputs: 


R} = Size of allocation desired 
R35 = 1 ress 


P 0d es 
Outputs: 
RO = status of request 
R1-R5 are preserved. 


Implicit Outputs: 


Se Ge Ge Se Ge Se Se Se Ge Ge Ge Ge Ge Se Se Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Se Ge Se Se 
+ 


IRPSL_SVAPTE(R3) = address of system buffer 
it 332 = byte count charged to user's process 
IRP$W_BCNT(RS) = original byte count requested 
ALL parts of the P2 buffer header are initialized, except for the 
user's P2 buffer address. 
ALLOC_P2BUF : : Allocate a non-paged buffer 
51 rf TSTL R1 : Zero length buffer? 
50. = BEQL 30$ ; Br if yes 
of Be PUSHR #*M<R1,R2,R3> 3; Save registers 
32 43 8 MOVW Ri. 1RPSY_BCNT(R3) : Save original byte count 
oc 51 } CMPL R1,$°#24=P2B_C_LENGTH 3 Is butter big enough? 
03 A BGTRU 58 :; Br if yes 
1 BC 08 MOVL $*#24-P2B_C_LENGTH,R1 3; Else, set size to minimum 
— =... 5$ ADDL2 $*#P2B_C_CERGTH,R1 : Add in size of header 
00000090" sf 8 JSB COE EE SOUFQUOPRC 3; Check for buffered quota 
00 50 € BLBC RO,10$ 3; Branch if quota bad 
+ Quota OKAY, allocate buffer and copy info. 
51 oD ; PUSHL 1 : Save size to charge user 
eoooongs" aa JSB SACRE SALONOMPAGED ; Go allocate a buffer 
05 50 =+€ BLBS RO,20$ 3; Br if success 
—€ oO TSTL (SP)+ ; Pop saved size 
E BA 108: POPR #*M<R1,R2,R5> 3; Restore registers 
5 RSB ; Return with error code in RO 
; System buffer allocated decrement user's quota 
53 8ED0 208: POPL ae ; Restore user quota charge 


7 
XGDRIVER S DMF32 Sync Line Device — 16-SEP-1984 00:43: AX/VMS Macro V04-00 Page 
—WB ALLOC_P2BuF , Allocate a P2 buffer and c mi ioe Pi 8:58:97 LORIVER. SREIXGDRIVER.MAR: 1 ° (38) 
‘ OC A 9 5 MOVAB Pg? J 21408 P2B_L_POINTER(R2) ; Set address to start of data 
a2. 5 6 MOVW R3,P28_W_SIZE(R2) :'Save buffer size in buffer 
AA i MOVB S*#DYNSC“BUFIO,P2B_B_TYPE(R2) ; Set structure type 
3 D MOVL R2 : Save P2 char buf addr 
52, 0080 0 MOVL pcést 418(R4) Re ; Get JIB address 
20 A C SUBL R3,JIBSL W—— decrenent user's quot 
BA 7 POPR #*A<R1,R2,R3> : Restore registers 
2¢ 43 9 68 27 é MOVL RO, IRP$L_§VAPTE(R3) + Save P2 buffer address in IRP 
30 a3 OBA 6F 7 MOV) P26 W SIZE(RO) JRPSW_BOFF (R3) : Return buffer size in IRP 
50 (01 : 4 2734 308:  MOVZWL S*#SSS_NORMAL,R : Set success 
77 «2735 RSB ; Return to caller 
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DMF32 Sync Line Device — 
Change UCB parameter values 


i ~SBTTL CHG_UCB, 


AX/VMS M 


"rSEp=] obs 00:80:11 EDRIVER. ce 


Change UCB parameter values 


+ 
CHG_UCB = Change UCB parameter values 
Functional description: 
characteristics. It is assumed here that the parameters 
been validated. 
Inputs: 
a = IRP *32* 
= UCB address 
R6 = Protocol “oeds in which to run the driver 
IPL = FIPL 
Outputs: 
RO-R2 = destroyed. 


oO Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 
a * 


HG_UCB: 
PUSHL R4 > Sav 


BSBW 
BLBC 


SET_DEFAULT_ChAR 
IRPSL_MEDIA(R3) , 108 


Oo WIN Oo ⏑ 


rotocol or the DDCMP protocol was specified in the P 


#XGSC_PROTYPE_DDCHP,UCBSB_XG_PROTYPE(RS) ; 


SINS SSSI PAPA AAA AA MATIN E&Y ES EE 


a a a Bin Btn Pen Bee Bt Btn ee Din Se De ie ie Se Bi Be Bi i ie te ee —— 


4: 
5 
$ ts #XG_DS._V_INITE : Br yse P 
§ ucesu SBEDSTS(R 5 .5$ 
MOVW IRPSL-MEDIA+2(R35,- 
9 HOebcae. 2(R5) 
5$: INSV #87824 UCB$L_DEVDEPEND(RS) 
: BISL MEDIA+4(R3) .- 
2 uepst ~DEVDEPEND (RS) 
5 Now update UCB based on P1 buffer 
5 ' ASSUME NMASC_LINPR_POI EQ 0 
3 CLRB UCBS$B_XG_PRO(RS) . As gune 
9 BBC tt CHR TRIB dess. DE WOE PEND(R5) 68 ; 
MOVB #NMASC_LIRPR_TAI,UCBSB_XG_PRO(RS) ; ELS 


ASSUME NMASC_LINCN_NOR EQ 0 


This routine is called to initialize the UCB with new P1 and P2 buffer 


e must be a tri 


cro V04-00 


Page 61 
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have already 


y shenge Ute parameters 


Call to set the start up defau't characteristics for a given protocol 


; Br if no Pl buffer 


Set new Pl buffer characteristics. We will use the P1 byt ier if no 
uffer. 
here is no interface to set LAPB or BISYNC via the P1 buffer. 


—44 nee ow then can 


; Br if 43 —*8. 
; Set new buffer size 


; Reset all Read/Write flags 
: Set new characteristics 


int to point mode 
erenek BC dcp point 
on 


stat 


X/VMS 
ucB, 
BAB 
BAB 


0152 ¢5 ¢ 6S: cLRB ucase é XG CON(RS) _ 
ee ASSUME NAA — DENDEPEND (Bs) 78 
0152 ¢5 INCB CUB 6X CORTR ) 

7$: ASSUME NMASC"DPR FUL £0 0 
0151 ; cLRB cose XG, 5U up RS ) 
04 44 A UCBSL “BEVBERENDIRS) 10$ 


2 NAA $C=D 


0151 C5 INCB UCBSB- XG 6 BUPtRS) ) 


$ Set new P2 buffer characteristics 


10$: MOVL  RS,R 
MOVAB tie PARAM,R1 
BSBW = UPDATE_P2 


CLRB UCBSL_DEVDEPEND(R5) 


ASSUME NMASC_LINPR_POI EQ 
ASSUME NMASC-LINPR-TRI EQ 
ASSUME NMASC-LINPR-LAPB £Q 5 
ASSUME NMASC"LINPR-BSY EQ 9 


MOVZBL y BSB_XG_PRO(RS) ,R2 
8 $ 


EQL 
CMPB = sR, #NMASC_LINPR_LAPB 
BGEQU 1 

SETBIT #XMSV_C - 


yCest DE ~bEVOERE 


SONA UNE WS OOO NAME WN SO ODNAU EWN @ OOODNAUE WP 


FWA AIAI AI AI AIO DINONININI NINN 2 — OO 


208: SETBIT 
ASSUME NMASC"DPX~FUL 4 0 
TSTB CB$B-XG_BuP(R 
BNEQ Br 
CLRBIT &#XMSV_CHF HOPLX UCBSL_ DEVDEPEND(RS) 
$ ASSUME NMASC"LINCN ao” 
0152 cs ? isi UCBSB_XG_ CONCRSD © st 
SETBIT — _CHR_LOOPB,,UCBSL _DEVDEPEND iS)": 
54 op 40$: —* Rest 


AX/VMS 0 v04-00 


OMES2 Syne Ling Device Briver Tg-SEP-IRR OB:43:05 YAN/UNE mace 


Set device characteristics and device mode definition 


—Xd (RS) If 
MSV-CHR "ADPLX UeBSL _DEVDEPEND(RS) ; 


Pa 
SXcDRIveR.mar:1 2% (9) 


Assume normal mode 
Br if not loopback mode 


3; Must be loopback mode 


Assume full duplex 
Br if not half duplex 


; Must be half duplex 


; Copy UCB address 
3; Get address of vertttcerton table 
3; Update the UCB 


3; Reset all characteristics 


Get protocol mode 
3; Br if point to point mode 
3; If LAPB or BISYNC branch 


; Indicate tributary station 
noother prot set then TRIB 
Assume half duplex mode 


: Full duplex mode? 
no - oka 
Set to full duplex mode 
: 4s Line in normal mode? 
es 
Set loopback mode 
ore R4 
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DEFAULT CHAR, Set default characteri DRIVER. SRCIXGDRIVER.MAR; 1 1) 
1 «SBTTL SET_DEFAULT_CHAR, Set default characteristics for given protocol 
uC 3++ 
3 : SET_DEFAULT_CHAR = Set default characteristics for given protocol 
uC ; This routine sets the default start up characteristics for a given 


DC 
UC 
uC 
vc 
uC 
OC 
X 
OC 
X 


3 protocol supported by the driver. 


INPUTS RS = UCB address 
R6 = Protocol type 


OUTPUTS ALL registers are preserved 


ger DEFAULT CHAR: 


SID DDD DADA ADE TT BP EEE 


00 WO OONO 


| 
07 ge OC USAR #°M<RO,R 
52 0144 (5 9E o¢ H MOVAB UCB$Z_ iG 1 eRe RS). R2 ; Set address of parameters 
COA ; Assume that the protocol L type will be DDCMP, thus set all the block of 
: : 3: defaults to point to DDCMP 
COA : 
50 603 3 COA MOVZWL #DEF_SYNC awh RO 331* size of defaults 
51 F525 8 3 t MOVAB DEF_SYNC_PARAM,R address of defaults 
0167 C5 3 MOVB #xGSC ‘PROTYPE _BDCMP, UCBSB_XG_ A 3; Set prot type 
C1 : i Check to see if one of the other protocols has been epost tree one ee so 
C17 : then ** the pointers to point at their defaults mus* use 
3 — ere, becaues the UCBSB_XG_PROTYPE field has not as yet * 
C17 5872 : : 
56 5 3 C17 ig CMPB #NMASC_LINPR_LAPB,R6 
3 1 C1A 74 BEQL 
56 3 ¥} ete o Sree @NMASC_LINPR_BSY,R6 
82 9 7 C21 ey 10$: MOVB (R1)+,(R2)+ : Set next default 
FA ! F Cc $ SOBGTR RO,10 ; Loop on all parameters 
0 BA : i 7 —* #*A<RO,R1,R2> 
C2A 3 
: . § 3; Set default pointers for LAPB 
50 08 3C OC2A 4 20S:  MOVZWL #DEF_LAPB BpARANSZ. RO ; set size of defaults 
1 F200 f t 5 MOVAB DEF_CAPB_PARAM,R1 address of defaults 
167 € t & MOVB #xGSC AOROTtrE _CAPB, UCB$B_xG _pROTHPE CASS Set prot type 
E 1 3 BRB 10 0$ 
C 3 get default pointers for BISYNC 
é Soe 08 3¢ : 9 io MOVZUL” #DEF. BISYNC PARAMSZ,RO : Set size of defaults 
167 C 1 96 fa MOV #xGSC C_PROTYPE_ BISYNC, UCBS$B_XxXG_ parece cals 3; Set prot type 
09 11 Fe BRB 10$ 


| ROVAB DEF _BISYNC_PARAM at’ address of defaults 
9 
94 


—8 


44 45 3643 CB 


08 AL 9% 
03 44 45 00 g° 
08 A4 


1816 30 

05 08 44 «EB 
54 8ED 

05 


oOo Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Se Gee 
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-SBTTL CHG_TRIB, Change trib parameter values 


+ 

CHG_TRIB = Change trib parameter values 

Functional description: 

This routine is called to initialize the trib parameter block with 
new Pl and P2 buffer characteristics. It is assumed here that the 
parameters have already been validated. 

Inputs: 


3 = IRP address 
R5 = UCB address 


IPL = FIPL 
Outputs: 
R1,R2 = destroyed. 


* : Validate P2 buffer 
PUSHL R4 3 Save R4 
MOVAB TRIB_PARAM,R1 3: Get addre of verify table 
MOVAB UCB$Z_XG_DOCMP(RS) ,R4 : Get the addr of param block 
BLBC _—IRPSL“MEDIA(R3) , 108 : Br if no Pl buffer 


Set new Pl buffer characteristics 
BISL IRPSL_MEDIA+4(R3) ,UCBSL_DEVDEPEND(RS) ; Set new char 


ASSUME NMASC_STATE_ON EQ 0 
ASSUME NMASC"STATE-OFF EQ 1 


CLRB DLKSB_MAINT(R4) 


ume MOP 


; Ass 
BBS #XMSV~CHR_MOP,UCBSL_DEVDEPEND(R5S,10$ ; Branch BS if true 
3: Set NORMA e 


INCB = DLK SBT MAINT (R4) L mod 


Set new P2 buffer characteristics 


10S: BSBW UPDATE_P2 ; Update trib porenetors 
CLRBIT #XM$v_CHR_MOP YCBSL _DEVDEPEND(RS) > Assume NORMAL mode 
BLBS DLKSB“MAIAT(RG : Branch LBS if true 
SETBIT #XMSV-CHR_MOP,UCBSL_DEVDEPEND(RSS ; Set MOP mode 

208: POPL R4 : Restore R4 


$B 3; Return to caller 
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31 


X/VMS DMF32 
10 = Start 
— D 4 
D 4 
C70 4 

C7D 

C70 

in 

74) 

C7D 4 
C7D 

C7D 29 
8 
C7D 

C7d 29 
es 
8 
3 
C7D 2965 
C7D 308 
c7D 8* 
C7D 29 : 
C7D 38 
C7D 29 
C7D 297 
C70 297 
C7D 297 
C7D 2974 
C7D 2975 
C7D 44) 
‘D597 
as 
C7D 29 ? 
C70 29 ; 
C7D 29 
C81 2984 
: 4 2985 
‘BS 5989 
Cc 9 

f 

Cc 991 
Cc 336 
C 99 
Cc 994 
c9 995 
C9 389 
C9 99 
C9 

CA 

CA 
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-SBTTL STARTIO = Start setmode 1/0 operation 


o 
STARTIO = Start setmode operation 
FUNCTIONAL DESCRIPTION: 


SETMODE FUNCTIONS -- 


receives and transm 
DMF sync 


protocol is set up w 


he trib 


R3 = 1/0 packet address 
RS = UCB address 


OUTPUTS: 
R3 and RS preserved. 
-ENABL LSB 

TIO: 


= 


wn Se Ge Se Se Ge Ge Ge Ge Ge Se Se Ge Se Se Ge Ge Se Ge Se Ge Ge Ge Ge Se Ge Se Ge Ge Fee Se Se Sete 


MOVZBL IRPSB_XGFUNC(R3) RI 
CMPB = #XG_FC_V_STRT_LIN,R1 
BEQL Ss 

BSBB = START_DISP 

MOVL —_ UCBSL“DEVDEPEND (RS) ,R1 
REQCOM 


START _DISP: 


— $DISPATCH R1,TYPE=B,- 
co 3; Function 
<XG_FC_V_STRT_CIR 
<XG"FC"V“STRT-LIN 
<XG_FC_V_STOP_CIR 
<XG_FC_V_STOP_LIN 
- <XG_FC_V_READ_MODEM 
5$: BUG_CHECK NOBUFPCKT,FATAL 
10$: BRW START_LINE 


This routine is entered to process a setmode request. 
are queued through the UCB to single-stream them. 


ALL setmode requests 


For all functions a change in the characteristics is done. 


For control startup, the UCB is initialized; mapping registers for 
its are allocated and saved in the 
Line is master reset. 
For trib startup, he DMF sync Line is loaded with its char; the 
th charateristics and started; and finally 
transmits and receives are started on the board. 


UCB; and the 


For control shutdown, mapping registers are deallocated and returned; 
all quotas are returned; and a call is made to trib shutdown to shut 


t ° 
For trib shutdown, the device is master cleared; all buffers and 
IRP's are returned; and the protocol is halted. 


Start 1/0 routine 
Get the function code 
If EQL then start the Line 


Branch to case 
Set device characteristics 
Complete the request 


CIRCU 
5$> 
I 
I 


. T>,- 
Own_C 
OWN _L 
MOD 


ACUIT>,- 
NE>,= 

3 Anything else is fatal 

: Branch to start the Line 


—2888 — DODDDD aes POOP 6, 


is i08e -DSABL LSB 


—8 — DD SEE 1986 60:30:11 LORIVER.SRCINGDRLV ERanan:t — 
-SBTTL START_TRANSMIT = Start transmit 1/0 

"START TRANSMIT = Start transmit 1/0 

FUNCTIONAL DESCRIPTION: 

This routine is entered to start a transmit 1/0 operation. It will call the 

routine q LgAD xn —2 -MPR to see if there is a transmit to give the board. If a 


srengart déd, this routine sets the enable bit on the board to initiate 
sending of the. data. 


et ss 22 OOO 


NAMES Oo OO NAUE WO OONAULS UN" OUOOon 


keee NOTE eeee 


et be sure when setting up the indirect register in misc register 
that Master Reset is not accidentially set! 


INPUTS: 
R1 = Status information from routine calling START_TRANSMIT 
More specifically it is an interface between the protocol 
ruse routine and this routine to tell start transmit that 
S protocet timer has expired therefore send the message. 
R5 = cg DDRESS 


Sete te 1 ee 


CA9 OUTPUTS: 
CA9 
NONE 
kee NOTE eee 
If the device is running in LAPB 30$ should never be called! 
rt START TRANSMIT: 
4g 3 If the DDOCMP timer has expired a message may need to be sent 
05 51 OF 4 BBS #DLKSV_TMREXPD RI, 5$ 
0 4 BBS #XG_DS"V_XMTIN : If BS then the xmt'r is off 
1 68 AS 4 Ucesw *BEDSTS(RSS 1 
0120" C5 96 47 5$: CMPB Feit Anß⸗cſis — XG. XSTATE (RS) : If EQL CTS has not gone away 
r BEQL 10$ ; do not bring up RTS until 


; we are sure C c¥8 R has Seon 
: dropped - for rgat modems 
DSBINT UCBSB_DIPL(RS) 3 Disa le dev ce 


ASSUME XGSC_PRIXMT EQ 0 


nterrupts 
2B 68 AS 3 EO 
3 4 


52. OA 
30 50 


1A 64 45 05 €0 


et 
MOVZBL aigsc PRI nT, R2 : Set nd reg addr of prim 
BSBW = =6 LUAD_MT_APR : : Load nee reg ters and BACC 
R *48 given to board 
SETBIT #XG_DS_V_XMT_DONEP,UCBSW sevstsdo ict, indicating that the 
ry"¢ c to highest IPL 
BBS #UCBSV_POWER ,UCBSW_STS(R5) ,20$ : 1f BS then power fail occured 


m =O mm 

Sd wu— oOo 
SOSCCOOSOOSOSSOOSOSSOOSOOSOOOOOOSOOSSSoO 
SSSR ARR RAEaSSSSSSSSSSSSS SSS 

on 
25328 0000 MNMODOOOOOOVOOONO 
SSOSOSGOSSOSSSOSSSSSSOSSOSSSOSSOSSOOSSSoOSoo 


WI QOONAOUS WN O O00 
o 
r 
2 
ed 
@s 
0 
wn 
@ 
- 
0 
oe | 
»* 
a 


DEAS MANU) 


<x 


"7 
SATE Sct eeteutes foe" CRESTS ABSENT VAMWER SESEGSRGER aan 


I 
: 8$: Bisw . SM_ENABLE ,XGSC_XMT_CSR(R4) ; Else enable transmitter 


VL gt ABS M.R get current f me 
ADDL3. RO,UCBSL_XG_XMT_TIMEOUT(RS) ,UCBSL_XG_XMTEND(RS) ; Set timeout time 

+ # ENBINT : Enable interrupts 
$: poy elt $“#SS$_NORMAL ,RO ; Set status 


—WB sthat YR 
Ao 01 A 
bio 2 o99p00900"SE BB 

50. 01 


208: ENBINT 


Enable interrupts 
peyewt #SS$_POWERFAIL,RO 


Set status 


50 0364 8F HS 


30$: ENBINT Enable interrupts 
MOVL 


51 0167 65 00 UCB$B_XG_PROTYPE(R5) ,R1 ; Get protocol type 
CASE R1,TYPE=B,<- 
328.- ; LAPB 
5$,- ; Bisync 
> ; Fall thru on DDCMP 
TSTB R : If EQL XMTer is idle 
BNEQ 35$ 


; Else wait for the interrupt 
cTs petny, soeerter 


—814 #DLKSC_XMTMSG,R ; Inform DOCMP that the Last 


Be Be Se Se Se Se Se Be Sete tee 
—~ 
ee, 
2 
3 


MOVZ #DLKSM_QEMPTY,R ; msg ON queue was sent 
DD PUSHL R ; Save register 
55 00D0 +4 MOVL UCBSA_XG_PRO_BUFFER(R5) ,R5 ; Get addr of start of TFB 
F2DC‘ BSBW DOCMP ; Branch to protocol 
8EDO POPL ; Restore register 


ossune DLKSV_MSGSENT EQ 0 


56 08 9} cnes #OLKSC_XMTMSG,R6 : If NEQ no ACK to be xmted 
05 9 ig BLBC R7,35$ : If BC no ACK need be sent 
3] 4 CLRL R1 3; Set no status info 
FF75 1 BRW START_TRANSMIT 3; Else send the ACK 
50 01 35 35$ poyeut. S*#SS$_NORMAL ,RO ; Set status 


ONS AMA DNS 9 BP NF FNOOOOOWOO TS NNOWUOD—"9 ed 


— 
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, -SBTTL Load Mapping registers and give to COMBO 
;LOAD_XMT_MPR = Load transmit mapping registers 

This routine gets a transmit out of the queue and sets the mappin 
registers and -BACC to give to COMBO. for sine rs only: the orinery” 
buffer ond character count is used. The tansmitter is allowed to be in 
three different states. The stopped state when there is no data to be 
transmitted. The wait for clear to send state when the transmitter 

has aserted request to send and is waiting for clear to send to come back. 
Finally the xmitting state when the transmitter has control of the Line. 
and can send data. 


This routine also does modem signal processing. For half duplex and tributary 
lines it sets RTS then puts the driver a ‘Wait’ for CTS to come back. If 
CTS dosen't come * in 1 microsecond the driver continues processing and 
expects a special CTS timer or the device timer routine to watch for CTS to 
come back. If the timer routine doesn't see CTS in a reasonable amount of 
time (2 to 5 seconds) and the Line is half duplex point to point , a fatal 
error is assumed. If the Line is in trib then the timer will wait indefinitly 
for CTS to come high.If the line is in loopback these signals are not 
checked. If the Line is in full duplex RTS is never dropped. 


cvovVvVvcvVcvVvVvVcCcCCCcC9c0Cc"cu"c"o +< 


WOONAUNE WI O OONAUS Wino 


SOooCOCOCOCOOOOOOOOOOOOOOOOSOOoOO 
(Go Cd C0 Cd Cd Cd Co CD COCO CD. COCDOCDOPODODORDCDOCDODODCD > 


MAAS BS BS BS BS BS BBB BNI WII WII nonononononononund 3 | 2 2 9 DQOOOOODOOO sw 


— — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — 


D 
D 0 
4 1 
D : 
gh He 
D — INPUTS Re = Primary/secondary register to use 
D RS = Vector slot to use 
0D 8 RS = Address of the UCB 
oD , IPL = DIPL 
D 1 OUTPUT 
4 § R4 = CSR address 
D 4 -ENABL LSB 
D 5 LOAD_XMT_MPR: 
0140 8F BB OD — PUSHR #*M<R6,R8> 
51 24 A05 DO OD : MOVL  UCBSL_CRB(RS),R1 : Get the address of the CRB 
54 OC BI D0 D4 8 MOVL a@CRBSC_INTD+VECSL_IDB(R1),R4  : Get CSR address 
56 00D0 C5 D44 9 MOVL —_- UCBSA_%G_PRO_BUFFER(RS) ,R6 ; Set protocol buffer address 
58 20 F OD49 0 REMQUE aTF$Q_CTCQ(RE),RB ; Get next control message 
1D OD4D 1 BVS F 
079 1 OD4F § BRW 10$ 
58 30 B6 F OD52 1$ REMQUE @TFS$Q_XMTQ(R6) RB ; Get the next message to XMT 
8 if D § 4 BVC 2$ 3; If VC then data to give COMBO 
0120 94 OD 5 CLRB $UCB$B_XG_XSTATE(RS) : Set XMTer IDLE 
D4 OD5C § CLR RO 3; Clear normal status 
0140 8F D5 POP #*M<R6,RB> 3; Restore the reg 
5 bg 8 RSB 
+4 3; Return from CTS start timer 
D6 CTSRET: 
OB AS 9 06 MOVB #TQESC_SSSNGL,TQESB_ROTYPE(RS) ; Set single shot timer 
5 BED D 4 POPL 3; Restore R 
50 0120¢5 9 D6A 5 MOVB UCB$B_XG_XSTATE(R5) ,RO ; Set RO for return 
0 4 § RSB 


04000" Load Mapping registers and \ sce Briss, 'EREIBEE BB:45:EE AYRE. SRESR. 480 sanz P28", 


13 OA ag 4 of 13 2s: CMPB = KATQSB_BUFTYP(RS) ,S*#DYNSC_BUFIO ; If EQL then buff ok 
33 16 BUG_ CHECK NOBUFPCKT, FATAL 
0120 C5 04 4 D7A 19¢ 4$: CMPB 4 =—s-s @XGSC_SWFCTS,UCBSB_XG_XSTATE(RS) ; If EQL then special wait 
,.:% 443 197 BEQL 5$ 3; for CTS state from CTS TQE 
D81 169 IF OF CTS$$$ 
D8! 1 § push 
D81 316 addl #1 ,uch$b_ te? r0 3; get next free slot 
D8) 16 bicl * 226 $ $8215 ; make mod of cts_size 
p81 18 movb ycsb. cts_la es) 3 set new location to incr 
p81 31 clrb ogé b_cts_buf(r5)Cr0J : make sure loc is zero 
8 1 171 popl 
p 3 Xoctc : DF CTS$$$ end 
0133 CS 90 0081 3174 MOVB UCBSB_XG_TIMEOUT(R5),- ; Set number of seconds to wait 
121 ¢5 p85 3175 UCB$SB-XG WFCTS SEC(R5) for CTS to be detected 
06 1F AB 08 Fi be 176 5$: BBC #XMTQSV_CONTROL ,XMTQ$B_FLAG(R8), és "i nenerl msg put on CTLQ 
20 06 6 F p8D 317 INSQUE (RB), TFSG_CTLQ(R6) ; Put he CTL msg back on queue 
3 1 D91 3178 BRB 8$ Branch to start up z tour 
13 (OA As 9 095 179 6$: cHPB XRTOSB. BUF TYP(R8) ,S*#DYNSC_BUFIO’ ; it EQL then buff ok 
p99 181 BUG CHECK NOBUFPCKT, FATAL 
30 46 68 6t 6bo 31 7$: INSQUE (RB) TFSQ XMTQ(R65 : Put the XMT back on queue 
30 08 9A ODA1 3183 8$: MOVZBL #xcst FCTS,R : Set status in RO 
0120 J. 90 83 move Rd, UCBs X6_ *XSTATE(RS) : § set new Fone y state 
18 68 AS Of ẽ DAD 1 $ BBSS § #XG_DS_V_CTSTQE_RUN,UCBSW -DEVSTSIRSS, 53 If BS timer is q'd 
55 DD ODB2 31 PUSHL R5 ~ : Save "i across fork 
op 57 cS) «(DE G88 «31 8 MOVAL UCBSL_XG_TQE(R5),R ; aay the CTS TQE block 
06 9 DB9 31 ove #1PL “QUEUEAST, — RQTYPE(RS) ; Set IPL of fork process 
3 AF OF 434 190 PUSHAB B*CTSRET : Set return addr 
0 C9°Cr 3F ODC 191 PUSHAW W*START_ TIMER : Set addr of CTs. Tae start 
00000 60° GF 17 ODC4 198 JMP G*EXESFORK 
DCA 319 
05 DCA 194 9$: RSB 
$34 198 : Set RTS and wait for CTS 
01 €0 ODCB 3198 10$: BBS #XMSV_CHR_LOOP! : = —* poops don't check 
53 44 AS pcd 3199 Hun “bEVDEPENDIRS) signal 
0150 ¢5 = 05 HI a 9 cps C_LINPR_LAPB, Nees. XG_ PRO(RS)" nt ec EQ LAP don't check 
0120 C5 94 91 ODD : CMPB bese _SWFCTS,UCBSB_XG_XSTATE(RS) ; If EQL ey special wait 
1 DDC BEQL 3 “for CTS state from CTS TQE 
0120 ¢5 9 oP 4 is16 y $B_XG_XSTATE(RS5) ; If "NEO then XMTer not idle 
04 a6 04 BO ODE $ 11$: MOVW § #XGSC_MODEM,XGSC_MISC_REG(R4) : Get the indr modem reg 
06 A4 1900 F AB ODES BISW #XGSM"RTS,XG$C_IND_ADBR(R4) te 
02 44 A 2 €1 ODE j BBC #XMSV~CHR-HDPLR at L_DEVDEPE npchsss i3s 
OF ; pity #XGSA “CARRIER, XG$C_IND_ADDR(R 
85 11 DF ; ; BRB 4$ : Always wait for CTS 
046 a6 04 BO ODF 1 13$: mOVW #xGse MODEM, XGSC_MISC_REG(R4)  ; Get the indr modem reg 
DFO 3214 TIMEWALT #1, #RGSM_CTS,XGSC_IND_ADDR(R4) .W 
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—8 Load Mapping — and give to COMBO 5-S Pa} 984 $8 338393 LORIVER. SREIXGDRIVER. MAR: 1 . (56) 
03 E BLBS RO,12$ :; If LBS then CTS was detected 
ty ee us: BRE : Else, start timers) erecte 
0 90 128: MOVB #XGSC_XMTING,- ; Set XMTer state on 
0120 UCBSB_XG XSTATE(RS) 
0120 ¢5 9 15$: mee 4 cUFCS, UCBSB_XG_XSTATE(RS) ; if EQL then XMTer waiting for 
FF56 i BRW ig : Else, check timers 
; Else mark the slot inuse and create buffer address / character count image 
14 17$: PUSHR — R4> : Save registers 
1F AB 01 BICB2 #XxMTQ A ONQUEVE. XMTOSB_FLAG(RB) : Mark that the msg was sent 
03 1F AB O02 €0 BBS #XMTQSV~CONTROL .XMTQ$B-FLAG(R8),18$ ; If control msg don't incr 


The INCB applies only when the driver is cuna ing in DDCMP mode. The 

next ane truss ten is a NOOP when —— in BISYNC and LAPB mode. However, 
since DDCMP is the protocol that needs to run the fastest, we opted 

note to code around this instruction, but instead just allocate a byte 

in each of the protocol buffers to allow falling thru this instruction. 
When reading the code you will notice that there is an XQCNT location 

in the data structures of each of the buffers allocated to the protocols. 


INCB TFSB_XQCNT(R6) 
#XMTQSV_SEL 


Incr i ody 1 less msg on Q 
If BC t 


E 18$: BBCC as ECT,- 3 en select flag not 
04 1F AB TQ$B_FLAG(R8S ,20$ : set don't turn Link 
01 48 BISw2 ore DS_M_XMTING,- 3; Set transmitter off but 
8 AS S(R5§ 3 finish sending this msg 
20S: MOVAL XMTQ$B_MSGHDR(R8) y ; Get address of data to send 
54 MOVAL UcBsz XG VECTOR(R5)CR32,R4 ; Get the slot to use 
Hj R2, XMTQSC Ace CRs 3; Get the message offset 
1A AB BO MOVW Mn TOSW_MSGSIZE CR ),- ; Set the char count 
16 A8 XMTQ$L_BACC+2(R8) 
14 AB 07 63 64 F0 INS (R4) ,.#9,47, XMTQSL_BACC(R8) : Insert the map register 
50 64 02 07 ef EXTZV 34 ikBb : Get the high two bits 
1408 02 _1€ 9 FO INS RO, #30,82,XMTOQSL BACC(RB) ; Insert into high bits 
OOFC ¢543 TSTL  UCBS2_XG_XMT_INPR(RS)CR3J : Check to make sure we aren't 
2 is BNEQ 40$ 3 overwriting a XMT inprogress 
OOFC C543 : D MOVL R8,UCBSZ_XG_XMT_INPR(R5)CR3) ; Store the addr of buff'r sent 
0164 C 96 INCB = UCBSB_XG"XMTCNTTRS) 3 Incr the no of outstndng XMTs 


; Build UBA map registers and load the map 


BICWS #*C<VASM_BYTE>,R2,- ; Store the message offset 


7C AS 52 ~=6FEOO 8F 3 
UCBSW_BOFF(R5) 
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3g 52 15 09 EF EXTZV #VASV-VPN,#VASS_VPN,R2,R2 : Get the virtual page number 
0 60000000 GF D0 MOVL GAM S61 _SPTBASE /RO : Get the address of SPT entry 
78 A 604 43 MOVAL (RO)ER2J,UCBSL_SVAPTE(RS) ; Set address of SPT entry 
1A AB OB MOVW = XTOSW MSGS IZETRE) .- ; Get the byte count 
7E A UCBSW_BCNT(R5) 
51 24 A 4 98 MOVL UCBSL_CRB(R5) ,R1 ; Get the address of the CRB 
64 OD oF MOVL (R4),= ; Set starting map register 
086 Al A CRBSL_INTD+VECSW_MAPREG(R1) 
06000 1} 16 A JSB G* IOCSLOADUBAMAPA : Load the map register 
4 BA A POPR #*A<R2 .R4> ; Restore the registers 
04 A4 32 80 AB MOVW 52 XG € MISC_REG(R4) : Load into indirect register 
14A8 B AF MOVW XMfO$L_BACC(RB) ,- : Load buffer address 
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aWANZYAS ORFS Syne Line Device Brisas, TEoSER-19BE 8:43:05 


Load Mapping reat sters and 91 ve to COMBO 


8 168 363 
BO 4 | MOVW — 33 26652 


—845 DR(R4) 

BICW2 A#XGSA TORR, ABEC NESE oXMT_CSR(R4) 

8 MOVZWL Fee ee ERA RO 
30$: POPR #*M<R6,RB> 
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-DSABL LSB 
408: BUG_ CHECK NOBUF PCKT ,FATAL 


AX/VMS Macro v06- 
(VER. SRETAGDRI VER MAR: 1 


and character count 


Page 


Since ont? one is ever loaded 


be sure this bit is always 
cleared 
Set BACC loaded 
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3* 
sSTART_TIMER = Start up for CTS TQE 
; This routine starts up the CTS TQE which times the return of CTS after 


EC 
eC $ 
3 Be 
3 ; setting RTS. 
EC ; INPUTS RS = Adress of TOE block 
+3 : ; IPL = Queuveast IPL 
EC $ : OUTPUT: Entry added to timer queue 
EES $508 | 
EC 3 START_TIMER: 
3F 88 662 9 PUSHR #*M<RO,R1,R2,R3,R4,R5> : Save the registers 
OC AS 00001D30'GF DE ECB 1 MOVAL  G*CTS TIMER, fQE$L_FPC(RS) : Set the addr of timer wakeup 
50 00000000'GF 7D OED : ova G*EXESGO SYSTIME RO ; Set time 
EDA DSBINT #IP IMER : Sync to timer IPL 
00000000'GF 16 FEO 4 58 Oy G-EXESINST IMO : Give to timer queue 
3F 84 sCOOEES 06 POPR #*M<RO,R1,R2,R3,R4,R5> 
05 O€EB 330 RSB 


F 8 
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* ~SBTTL READ_MODEM = Read device modem register 
;READ MODEM = Read device modem register 


; This routine returns the device modem register in 7 buffer passed. 
; These are set according to the XMDEF’s for modem bit 


Inputs: : 
a = IRP address 
= UCB address 


sets" — 


au 


READ MODEM: 
06 68 AS ge 0 $ #XG_DS_V_INITED ,.UCBSW_DEVSTS(RS5), 5S 5 If BS then read register 
50 2004 8F f MOV ZUL #SSS_DEVINACT, 20 : Else return device inactive 
5$: PUSHL 
MOVL ee CRB(RS) ; Get CRB address 
MOVL @CRB - INTDs eS. IDB(R4),R4 |; Get device CSR 
DSBINT UCBSB 3 Sync to device IPL 
MOVW #XG$C- PES 404) MISC_REG(R4) ; Set to read modem register 
MOVZWL Xoee _IND_ADOR(R4T,R1 ; Read modem register 
ENBINT 3; Enable interrupts 


MOVL IRPSL. SVAPTE(R3) ,R4 Get address of buffer 


8 #XG$V_CTS,R1,10$ ; BC CTS is not set 
SETBIT #XMSV"MDM CTS,RO Set CTS for return 


BBC 

SETBIT i bn RTS,RO 
—* RO,P26_T ASATACRG) ; Return modem signals 
1+ a S“#SS$_NORMAL ,RO 


i Ie Dees es Bes De Dn es es Be Be i c ALL AAL AA AAA AA AL ⏑ ⏑⏑— 
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‘ -SBTTL CLEAN = Abort all outstanding XMT's (ALL 10's for BISYNC) 
; CLEAN = Abort all outstanding XMT's (all 10's for BISYNC) 


3 This routine aborts all outeceneton XMT'sS on the doy ice when running 
; in LAPB mode and all outstanding 10's when running in BISYNC protocol 
; mode. To do this it syncs to egy ice IPL takes all XMT's off 
: que es, puts them temporar 

T nprogress i 


he 
3 3 Xx f an XMT 
the board won't Lik 
this XMT ends complete fe with an abort status and complete eb the 
qutstanding XMT's then complete the —< request. If no XMT is 
n progress then all XMT’s are taken from the Senporery queue and 
gonple e via FIPL, therefore 
completed the xmt 
then raised IPL; we may allow xmt's to complete normally. 


~" 
= 
Ww 


Note any XMT in the post queue is complete in error. This is done because 
there is no wey to determine if the clean was issued before or after 

the XMT actually completes. This method also provides less risk of getting 
XMT's completed out of order 


INPUTS: R3 = IRP address 
R5 = U5) peerese 


IPL = F 
OUTPUTS RO = Status 

R3 = IRP address 
RS = UCB address 

9 Clean_ fork ary 

0 Inpu Ri = Allocated buffer address 
R3 = IRP of outstanding 10 
R4 = Address of the protoocl work buffer 
RS = UCB address 
IPL = FIPL 

Xxnasl LSB 


CLEAN: 
MOVL R3,UCBSA_XG_CLEAN(RS) 


CLRL 
DSBINT UCBSB_DIPL(RS) 

Vv UseeA XG_PRO_BUFFER (RS) ,R4 
dijee XG$C_PROTYPE-LAPB gO 


0168 C5 33 b0 Save | IRP address 
Clear R 
Sync to clear device queue 


Set protocol buffer address 


54 0000 C5 00 


SSS ESSE SSE EE 
el) ee ow Poor — 
DONA ODA NE WIN 9 OD NIA I— WIN @ OWONOUSE 


Se ee ee ee ee — — — — ee ee ee ——————————— 


SBOOOOOOOOSOO 00000 OOO O69 09 696969 69 69 69 6909 SIN NINN NINA AA AOAOAAAAO 


PEPER EEE SF PAA AAA 


0167 cS) 95 $8_XG_PROTYPE(R ; If neql then must be bisync 
12 BNEQ 3 so take xmts off bisycn queue 
51 20 84 4 § 10$: + e APBSQ_XMTQ(R4) ,R1 3; Get next xmt 
2C B4 af 0 7 INSQUE (R1),@LAPBSQ_CLEANQ+4(R4) 3; Put on clean queue 
F4 g BRB 10$ 3 get next xmt 
F H REMQU SYNCS$Q_XMTQ( 2 3; Get next xmt 
51 30 0¢ 4 f 15$ c E 208 $ R4),R1 
2c B46 6 0 7 INSQUE (R1),@BISYNCS$Q_CLEANQ+4(R4) : Put on clean queue 
F4 H BRB 15$ ; get next xmt 


<= 
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reed CLEAN = Abort ali outstanding AMTts URL SeSEPoyORS BOssOLs? FORIVER. ceesGohetvee.man:1 P20 (78, 
1 4 a5 D F 410 208: MOVL UCBSL_CRB(RS5) RI 3 Get CRB 
H ¢ BI 06 F 8 41 MOVL acnesc INTDEVECSL. 108 (R1) R1 3 Get CSR addres 
2 Al i F 41 1CW2 = #XG W_ENABLE XGSC-XMT_CSR(R1) Clear the enable bit 
0164 : 3 F 41 STB — ENT(RS) ; IF NEQ zero xmt inp 
6 F 414 BNEQ 3 Branch to await completion 
: : ai2 ENBINT 3 Set to FIPL 
F $A 418 CLEAN_FORK_ENTRY: 
x Y U Y 3 L then 
0167 C5 2 ? FA ; 9 sh SC_PROTYPE_DDCMP,UCBS$B_XG_PROTYPE (RS) If EQL then BUG 
5 i) FA 4 TSTL 3; IF EQL then not from FORK 
1 FA 4 BEQL 3 
38 43 0 FA 4 MOVL —*9 -MEDIACR3) 3; Status of 10 is sst in RO 
ocep FAQ 34 BSBW FRAWSR “10_DON : Complete req in 
50 F4 i) 4 4 : 30$: MOVAL UcesG X67 “POST(R5) RO 3; Get the address of queue head 
1 D FB 4 MOVL 3; Get the first entry 
1 D4 FB4 ‘ $ 32$: CPL a0,af" : If equal than end of queue 
OA Al f %} FBO 34 8 CMPB * -BUFIO,IRPSB_TYPE(R1) ; If NEQ then not a transmit 
5 1 FBD 34 BNEQ 3: get next entry 
51 61 OF OFBF 3430 REMQUE : Else complete the request 
$3 OC Al bo FCe 431 MOVL xnrage IRP(R1) : Get address of IAP 
AS. 2 f FCO 33 ; MOVZWL #SS$_ABORT, fe ad ~MEDIACR3) : Set abort status 
52 61 OD FCA 34 MOVL 3; Get next entry on queue 
15 8B FCD 4 4 PUSHR #*M<RO,R2,R4> : Save addr start of q and 
3 nex 
oce? 30 OFCE 34 $ BSBW TRANSMIT_10_DONE 3; Complete request 
3 534 4S) ? POPR #°M<RO,RT,RZ> : Restore. address in of q head 
3 and ent 
DE 11 OFD4 34 § BRB 32$ 3; branch te check if XMT 
51 61 00 06 440 35$: MOVL (R1),R1 3; Get next entry 
09 11 6508 441 BRB 3: branch to check for XMT 
51 2864 OF OFDB re 378: REMQUE @LAPB$Q_CLEANQ(R4),R1 3; Get buffer to complete 
9 8 FOF 344 BVS 3; If VS then done 
33 OC A 4 FE1 444 MOVL XMTQS$L_IRP(R1),R 3; Get IRP address 
8 A3 gf C FES 3445 MOVZWL #SS$ ABORT, at) fs _MEDIA(R3) 3; Set abort status 
4 3 FE9 rr | PUSHL 
ocee ace ree rr bong LOANSAET. 10_DONE : Complete the request 
8 +} FF ret Beh 378 Get next butter to complete 
0167 C5 1 91 FF tay 40$: CMPB #XGSC_PROTYPE_BISYNC ,UCBSB_XG_ pRoTYBE Rs) bined, 
3 12 OFF 43 BNEQ 45$ 3 If NEQ wa. 
4 3 FFA 34 § BSBW CLEAN_BISY ; Call to abort Sut 10'S 
53 16 ce 1) FF 4535 458: MOVL UCbEA- 46. EANCRS) RS 3; Get REQ ess 
16 4 454 CLRL UCBSA_ XG" CLEAN(R5) ; In case it gets called again 
38 AS 1 ‘ 1 455 MOVZWL oss gNORRAL. IRPSL_MEDIA(R3) ; Set success 
OC9E ' . r § BRwW 10_DON 
1 4 8 50$: SETBIT #XG_DS_V_CLEAN,UCBSW_DEVSTS(RS5S) ; Set to aber’ the xmt inpr 
1 4 ENBINT 3; and other 1/0 and clean irp 
50 01 360 101 rhe MOVZWL S*#SS$_NORMAL,RO : Set normal ret 
51 44 AS 3 ' i? r nose ocose _BEVDEPEND (RS), R1 
' 1p 468 60$: BUG_CHECK NOBUFPCKT, FATAL 
1 $} 183 -DSABL LSB 


| 
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1021 7 3+ 
} } : CLEAN_BISYNC - Handle remainder of CLEAN work for BISYNC 
1021 : This I aborts the remainder of the putstondins 10's from the driver, 
1021 3; to By the BISYNC clean request. Oat ine in LAPB the receive 
1021 3 also be aborted when running { n BISYNC no mode. It also resets the 
} 1 : —34 (ucesa XG_STATE_INFO) of the framming routine 
1021 ¢ : INPUTS R4 = Address of protocol work buffer 
1 ! 6 : RS = Address of UCB 
! : f ; OUTPUTS ALL outstanding receive IRPs are aborted 
1021 CLEAN_BISYNC: 
1021 CLRBIT #XG_DS_V_XMTING,UCBSW_DEVSTS(R5) ; Set Sronea- iter back on 

OF 30 1 8 BSBW STOP_RCV-BISYNC ; Stop th e device from rcving 
1 TSTL R : zones if eql no Oy iter 
1028 4 BEQL 1 5, 3; to return to free Lis 

goes +3 61 5 INSQUE (R2),@UCBSQ_XG_FREE+4(R5) 3; Return buffer te. the list 
doc Bs F 6 10$ REMQUE : ceasa_ XG_REVSTRS) -R3 : Abort all RCV IRP 
38 43 zt ee 19 . 3 ort | gg £758 ABORT. JRPSL _AEDIACAS) 
och 103F 0 BSBW 10_DONE 
aH He te 

104 38 20$ DSBINT UCBSB_DIPL(RS) 

0645 30 104E 3494 SBW START_RECEIVE_BISYNC ; Startup receiver 
193) 95 ENBINT 

05 1054 £36 $B 

1055 9 
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Line Device Driver 97360-1384 00:63:03 aves Macro v04-00 Page (dd 


device and/or protoc 5-SEP- DRIVER. SRCIXGDRIVER.MAR; 1 
-SBTTL START = Start unit, device and/or protocol 
START_LINE = Start unit 
Functional description: 


This routine initializes the UCB; allocates the map registers for 
transmits and receives; and master clears the device. 


If a failure occurs the Line shutdown sequence is entered. 
INPUTS: 


+ = 1/0 packet 
RS = UCB address 


IMPLICIT INPUTS: 


IRPSL_MEDIA contains a copy of the mode buffer specified by the user. 
IRP$W_QUOTA contains the quota taken from the user for the unit. 


TPUTS: 
The request is completed. 


START_LINE: ; Start protocol operation 
BBC #XG_DS_V_INITED,- 3; If BC then device not inited 
UCBSW_BEVSTS(RSS ,5$ : Branch to set up idle UCB 
MOVZWL #SS$_BEVACTIVE,RO : Set device active 
RSB 3 eee and return 


CLRB UCBSB_XG_INUS(R5) ; Clear rcv slots in use mask 
#XGSC"-LIRE_PAR ucest DEVDEPEND(R5) ; Reset all Read/Write flags 
MOV IRPSU-QUOTACRSS UCB Q_XG_QUOTA(R5S) ; Set quota for RCV's 

CLRW IRPS$W_QUOTA(RS) 3; Make quota consistent 


Using the default buffer size and the minimum Line speed set up the 
maximum amount of time to wait 


(that is after it has bes” given to the DMF52). This is to get around 
a problem where the DMF occas tonely loses clocking on the line and 
he transmit appears to get stuck. The 

s the following: 


timeout _time = ((default_buffer_size * bits_per_char)/ minimum_baud_rate))+f 


MOVZWL UCB$W_DEVBUFSIZ(R5S) ,RO 

MOVZBL #XG$C"BPC_DEFAULT RI 

MULL2 R 

DIVLe  #XG$C_BRG_DEFAULT,R1 

ADDLS #2,R1-UCBSL_XG_XMf_TIMEOUT(RS) 


CLAL UCBSL_XG_XMTEND(RS) ; make sure timeout time is zero 


3 initialize the vector, which contains mapping information 


or each of the possible outstanding buffers. 


D 
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9 9A 1 MOVZBL #NUM_MAP_REG,RO 3 Number of rcv vector slots 
51 10 DE 1 MOVAL CBSZ_XG_V CTOR(RS) RI : Get vector address 
1 86 ! 10$: CLRW R1)¢ 3 In f data path 
81 1 A GA MNEGW #1,(R1)¢ 3; Indicate map regs 
F8 F5 109 SOBGTR RO,10$ 3; Continue for entire vector 
012C C5 A D 10A MOVL TRESL _P1p(R3) UCBSL_XG_PID(R5) ; Save starter's PID 
é AS 80 10A MOVW RPSW-CHAN(R3S ,~ ; Save channel number 
01 f 10A UCBSW"XG_CHANL (RS) 
4 AB 10AC : BISW #xG_DS_M anitee - 3 Indicate UCB initialized 
68 AS i A UCBSW_DEVSTS(RS5S 
° ; Allocate map registers 
H B0 \ : 63 . MOVW Uceey -pevaur 1Z(R5),- ; Set up to alloc the map regs 
7C AS. OF BF B 108 9 MOVW —— yt aie : Set worst case page cross 
54 Dd ! ee 276 MOVL UCBSL_CRB(R5) ,R4 ; Address unit CR 
108¢ 74 ASSUME VECSB_NUMREG EQ VECSW_MAPREG+2 
10BF 3* ASSUME VECSB-DATAPATH EQ VECSB_NUMREG+1 
34 AS 60 SO10BF 258 CLRL CRBSL_INTD+VECSW_MAPREG(R4) : Clear map register + datapath 
0cO 8F BB 1 ce 278 PUSHR #*M<R6,R7> 3; Save regs 
56 110 &? E 10C 57 MOVAL UCBS$Z_XG_VECTOR(RS) ,R6 3; Get vector address 
7 4 A 10CB 3580 MOVZBL #NUM_MAP-REG,R7 : Get number of slots to use 
00000000" sf § 1 CF 581 15$: JSB G* IOCSALOUBAMAP 3; Get map regs 
9 0 €9 10D 5 § BLBC R 3; Br on error 
AG OO 07 5 MOVL CROSL_INTD+VECSW_MAPREG(R4) ,- : Save mapping info 
8 5 F5 1008 5 SOBGTR R7,15 3; Continue until done 
00cCO 8F BA 10D — 208 POPR #*A<R6,R7> 3; Restore regs 
F 50 €9 : 5 BLBC RO, START_CTRL_ERROR : Branch LBC error on start up 
: ; : : Master clear the device 
54 3 84 OD 10€ 91 : MOVL @CRBSL_INTD+VECSL_IDB(R4) ,R4 ; Get the CSR 
53 AS D + 34 a6 MOVL UCBSL_TRP(RS) ,R3 3; Pick up packet address 
00D8 0 10ED 207 BSBW AWAIT_UNIT 3 Await the unit 
50 01 x ' re 336 1 S*#SSS_NORMAL .RO 3; Set normal return 
10F4 9 
10F4 298 START_CTRL_ERROR: 
10F4 9 3; Save abort reason 
10 g 1 re 600 BSBW SHUTDOWN_LINE : Shut down the device 
2 8EDO 10F 601 POPL 3; Restore abort reason 
51 444A DO 10F 6 § MOVL UCBSL_DEVDEPEND(R5) ,R1 : Set device charateristics 
' ? 7 REQCOM 3; Complete the request 
1 605 
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START_CIRCUIT= Start device and protocol 
Functional description: 
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This routine sets up the protocol and device charateristics; sets up receive 
buffers for the device; starts the protocol; and finally gives the first 
transmit and receives to the board. 

If a failure occurs the circuit shutdown sequence is entered. 

INPUTS: 


a = 1/0 packet 
RS = UCB address 


IMPLICIT INPUTS: 
IRPSL_MEDIA contains a copy of the mode buffer specified by the user. 


MOVAB UCB$Q_XG_RCV_INPR(R5) ,UCBSQ_XG_RCV_INPR(RS) ; Rev inpr List 
MOVAB UCBS$Q~XG"RCV—INPR(R5) ,UCBSQ-XG_RCV~ INPR#4 (R55 

BSBW SET_CRAR ; Set protocol char 

MOVL UCBSL_CRB(RS),R4 ; Get the CRB address 
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213 
: 0 
° 1 
$58 
624 
625 
$59 
? 8 OUTPUTS: 
; ? The request is completed. 
6 § TART_CIRCUIT: 3; Start the circuit 
08 E1 6 BBC #XMSV_STS_ACTIVE,- : If BC then device and 
06 44 A 634 UCBSL DEVBEPEND (RS) ,5$ 3 protocol are not active 
50 02C4 BF 3C 635 MOVZWL #SS$_BEVACTIVE,RO ; Return error 
05 ° — RSB 
0 E0 638 5$: BBS #XG_DS_V_INITED,=- : If BS then Line started 
06 68 {4 6 § UCBSW_BEQSTS(RSS ,8$ 
50 20D4 8F 3 ° 9 ROVZUL #SS$_BEVINACT,RO : Else return device inactive 
6 
AA 6 § 8$: BICW #*C<XG_DS_M_INITED!- : Reset bit fields 
644 XG_DS_A_CTSTQE RUN>, 
AS _BFFB gF 645 UCBSW-DEVSTS(R 
44 A FFFFF700 8F CA v4 $ BICL #XGSC_CIR_PAR,UCBSL_DEVDEPEND(RS) ; Reset all Read/Write flags 
6 8 ASSUME XGSC_IDLE EQ 0 
6 ASSUME XGSC_XMTING EQ 1 
° ? ASSUME XGSC_WFCTS EQ 2 
? ASSUME XGSC_SWFCTS EQ 4 
0120 65 94 3 CLRB UCBSB_XG_XSTATE(R5) 3; Set XMTer state to idle 
Bigs 73 94 4 CLRB UCB$B_XG_XMTCNT(R5) ; Clear the no xmt‘s outstnd'n 
OOEC C5 OEC C 9E é 5 MOVAB UCB$Q"XG-RCV_INPR(RS) ,UCBSQ_XG_RCV_INPR(RS) : Rev inpr List 
$ : Reinitialize the queu headers is case BISYNC protocol was run Last 
8 in which case these fields will no longer look Like queues. 
288 
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54 2C B84 00 11 : poy acrest Bro STFC. JOBIRG) RS 3 Get the CSR address 
11 DSBINT PL(R 3 Lock out yacerves trea device 
0268 30 11 $ BSBW yee unl DOCMP 3 Set char for 
115¢ SETIPL #IPC$_PODER : Interlock powerfail 
05 64 A5 05 €1 #115F 366 BBC #UCBSO_POWER ,UCBSW_STS(R5),10$ ; f no power failed 
1164 — ENBINT : Enable intterrupts at FIPL 
4C 11 1167 BRB START “povenralt : Branch to report powerfail 
0800 8F 1169 f 10$: BISW #XMSM"STS ACTIVE 
44 AS 116D UCBSL ~DEVBEPEND (AS) ; Set active state 
116F 7 ENBINT 3; Return to fork IPL 
56 8 11 74 MOVZBL #DLKSC_USRINT,R6 3 Set to ptart the eretecet 
9 117 of? BBC #XMSV_CHR_MOP,- 3; If BC then don't enter 
06 44 A 117 6 ite eH gPEVOEPEND(RS) 15$ 3: maint mode 
7 e0 ; 3 — g ALM oR? 3: Set to start maint mode 
57 1 11 p 8 15$: MOVZBL 238 START,R7 3; Else Au. etert the prot 
3 11 680 20$: PUSHR ; Save regist 
55 0000 58 p 1 ; ? 1 rng 3 UcBSA. iG PRO_BUFFER(RS) ,R5 3; Get addr + stort of TFB 
—EE71' 118C 36 4 BSBW DOCMP 3; Jump to the protocol 
34 BA 118F 3684 POPR #*M<R3,R5> ; Restore registers 
56 } 1191 3685 CMPB — AcTNOTCOM, R6 : If EQL then protocol not 
13 13 #1194 36 § BEQL $ : " halted state don't reinit 
0688 30 1138 68 BSBW FILLFREELIST : Fill rcv free buffer Q 
1€ E9 119 688 BLBC RO,START_CIRCUIT_ERROR 3 Branch to shutdown the device 
51 Be 119C 3689 CLRL R1 : Set no status for start transmit 
FBO 0 Bh 690 BSBW START_TRANSMIT ; Branch to send STRT message 
16 5 4 11A 691 LBC RO, START _CIRCUIT_ERROR : Branch to shutdown the device 
50 01 3C 11A4 69¢ MOVZWL $*#SS$_NORMAL, : Set normal return 
19 11 8 $33 B START_CIRCUIT_COMP ; Comp the request 
50 02C4 BF 3C 11A9 3695 25$: MOVZWL #SS$_DEVACTIVE,RO 3 Set reason for abort 
11AE $38 SETBIT #XmMSU_ERR_T ; Set to restart ciruit 
11AE 369 UCBSL ~DEVDEPEND (RS) 
05 11 #118 33 BRB START_CIRCUIT_ERROR 
118 +4 START_POWERFAIL: 
50 0364 8F 3C 118 0 MOVZWL “#ss$ _POWERFAIL,RO 3; Set reason to abort 
11BA 3701 START_CIRCUIT_ERROR: 
D 11BA 37 § PUSH 3 Save reason to abort 
101 0 118C 37 BSBW “epee: : Shutdown the circuit 
50 8EDO 11BF 53704 3; Restore reason for abort 
11C 705 START_CIRCUIT_COM 
53 S58 AS 60 11C 7 — MOV UCBSL IRP(R5) ,R3 3; Retreive packet address 
70 aS 35 11C6 37 MOVW RO UCBSU. BOF F —16 5) : Set success 
vice f 8 RSB 3; Jump to complete the request 
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Unit access routines SEP=- 
11¢B -SBTTL Unit access routines 
AWAIT_UNIT = Wait for unit master reset 


; This routine wees the WEIKPCH macro to wait for the device to be master 
cleared. The interrupt should never occur only the timeout. 


: —*88 for the device to clear in this manner is a nonstandard use of 
the WEIPKCH macro. There are sone things to note when we continue execution 
after the timeout has occured. Fir 


nme 


: st we come into the routine at DIPL instead 
3: of FIPL. Since most of the work we have to do after the timeout has 

3 saepenee s a FIPL then ae | do a SETIPL to the driver's fork ipl. We can do 

; Ha because we have put in numereous checks int UNIT_INIT to make sure that 
A 


SSNS 
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SYNCH, IPLS_TIMER and the drivers FIPL are the same. Please take all 
; these things into consideration when changing this code. 


INPUTS: R5 = UCB address 
OUTPUTS: RO contains the status of wait 
WAIT_UNIT: ; Wait for unit only 
DSBINT UCBSB_DIPL(RS) Lock out interrupt from dev 


BISW #XGSM_MASTER_RESET,=- 
XG$C_MISC_REG(R4) 


WFIKPCH AWAIT_CONT,#2 3; Wait for two seconds for 


; master clear 
AWAIT_CONT: 
CLRBIT #UCBSV_TIMOUT,UCBSW_STS(R5) : Clear timeout 
MOVZWL #SS$_CTRLERR,RO : Assume failure 
BITW #XGSA_MASTER_RESET.XGS$C_MISC_REG(R4) 3; If NEQL then error 


BEQL 1% 
SETIPL 920L8 SYNCH 3; Return to the drivers fork 


#IPL$_SYNCH ; Return to the drivers fork 
DSBINT #IPL$ POWER 
8 SUCBST_POWER UCBSW_STS(R5) 30 : If BC then NO power failure 


3; Set to DIPL 
3; Get protocol type 
; pase on protocol type 


Master clear the unit 


0080 8F as 
04 A4 


50 0054 8F 3 
04 A4 0080 oe 8s 
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yt ae UCBSB_XG_PROTYPE(R5) ,RO 


=B,<= 
START _UNIT_LAPB.,- 
0$,- BISYNC 
Fall thru on DOCMP 


: Set up DDCMP defaults and other information necessary for the prptocol 
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030 gf eB 6 PUSHR —X -R7.-RB,R9> 
58 134 eg BE g MOVAB UCB$Z_XG_DDCMP(RS) ,R8 : Set addr of buf with param 
3 16C C5 * 6 MOVAB UCB$Z~XG~DLA_ADDR(R5S) .RO : Set addr of buf with address 
0 orc 43 6 MOVAB UCBSZ_XG_XMT_INPR(R5S) RO ; Set up address 
6 p 6 MOVL RO,DLASAXMT INPRCR ) 
50 O0F4 ‘ 6 MOVAB urea XG"POST(RS) ,RO 
0409 50 OD 6 MOVL RO,DLASA~POSTQ(R9S 


tt 
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55 gp00 go 123 7 —9 UCBSA_XG_PRO — Get protocol buffer 
6 A 124 f MOVZBL POLKSC_CRARR : Set DDCMP default char 
D4 1244 CLRL R 3; Zero the register 
57 O9FO BF AB ! 4 77 BISW ay pee fescti= ; indicate chara to set 
1248 718 DLKSM_SELWAIT!- 
1248 3774 DLKSM_REPTIM!- 
1048 3775 DLKSM-REPWAIT!- 
1248 ah DLKSM_SETDEF>,R7 
cog?’ 30 1248 377 BSBW DOCMP 
2 BA ! 4 ore POPR #*M<R3,R5> 
1 : 7 , ; Before starting up the DDCMP timer make sure that the driver can not 
! : 4 ; be reloaded while the timer is running. 
0000000D ‘EF 04 88 } 5 4 5 BISB #DPTSM_NOUNLOAD , DPTSTAB+DPT$B_FLAGS 
1 35 785 ; Start up the DDOCMP timer. First set up registers with params for call 
! 3 3; then make the call to the protocol. 
es 1257 37 3 PUSHR #*M<R3,R5> 
56 9A 1259 37 MOVZBL #DLKSC_START_TIMER,R6 3; Set up R6 with the DDCMP comm 
57 1077'CF 43 125C 3790 MOVAL W*DEVTIMER,R7 ; R7 must have device timer addr 
58 5 00 1261 3791 MOVL R5,R8 ; RB must have UCB addr 
9 D4 1264 3 CLRL RO 3; Clear R9 
55 0000 C5 0 1266 379 MOVL UCBSA_XG_PRO_BUFFER(R5) ,R5 ; Get addr of start of TFB 
ids 1268 3794 BSBW DDCMP 3; Call protocol 
BA 1 $F 795 POPR #*M<R3,R5> 
93c0 F A 127 £38 POPR #*M<R6,R7,RB,RI> 
0 01 3¢ 1274 379 MOVZWL S*#SS$_NORMALR ; Set success 
51 4445 00 1277 138 MOVL UCBSL_BEVDEPEND (RS) ,R1 ; Set device charateristics 
: 4 8 REQCOM 3; Complete the request 
50 0364 8F 3C 1281 3801 5$ MOVZWL #SS$_POWERFAIL,RO : Treat as failure to init 
1 3 z3 ENBINT 3 Set to FIPL 
50 gp 1 10$: PUSHL RO ; Save abort reason 
0E70 1 04 BSBW SHUTDOWN_L INE ; Shut down the device 
50 BEDO 128E 8 POPL ; Restore abort reason 
51 44 A5 D0 1291 6 MOVL UCBSL_DEVDEPEND(R5) ,R1 ; Set device charateristics 
1295 3807 REQCOM 3; Complete the request 
O1FO 31 ' oe ape 20$: BRw START_UNIT_BISYNC 
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129E 11 344 
! 3 12 3 START_UNIT_LAPB = Start Line and set char for LAPB 
129E 14 ; Lapb does not have a 4 start up for line and circuit, therefore 
129E 15 ; when a eyert up on the Line is Feeetved then it must also start 
129E 18 3 we the circuit. This ane Ludes setting up the proper fields in the 
! a5 } ; UCB and setting the board with the proper fields 
1 3 18 3 INPUT RS = IRP address 
! oF : 3 RS = UCB address 
109€ : START_UNIT_LAPB: 
08 E1 129 Bet #XM$V_STS_ACTIVE,- : If BC then device and 
08 44 A 12A 4 UCBSL DEVBEPEND(R5) ,5$ 3 protocol are not active 
50 2C4 BF C 12A 5 MOVZWL #SS$_BEVACTIVE,RO ; Return error 
OOFF 31 Ag $ BRW SET_ONIT_LAPB_ERROR 
0¢ EO 12AB 8 5$: BBS #XG_DS_V_INITED,- 3; If BS then Line started 
08 68 A 12AD 9 UCBSW_BEVSTS(R5S ,8$ 
50 2004 8F cis +! ; 9 MOVZWL #SS$_BEVINACT,RO ; Else return device inactive 
OOF 2 1 ! z BRW SET_ONIT_LAPB_ERROR 
AA 1288 a38 8$: BICW #*C<XG_DS_M_INITED!- : Reset bit fields 
12B9 4 XG_DS_A_CTSTQE_RUN>,- 
68 AS BFFB 8F 1289 3835 UCBsu “DEVSTS(R5) 
44 45 FFFFF700 8F A 12BE 3836 BICL —*3 C-CIR_PAR,UCBSL -DEVDEPEND(R5) Reset all Readvurise flags 
0120 C5 94 12¢6 8 7 CLRB UCBs XG ~ASTATE (RS) ; Set XMTer state to idle 
0164 CS 94 12CA 8 CLRB Mitt XG_XMTCNT(RS) 3; Clear the no xmt' : outstnd'n 
0165 C5 B4 : ; 2 CLRW UCBSW_XG “HE DLENCRSD ; Set zero protocol header 
12D 41 ; Reinitialize the queue headers is case BISYNC protocol was run Last 
! ; rk 3; in which case these fields will no longer look Like queues. 
OOEC CS} OOEC CS X 12D 44 MOVAB UCBS$Q_XG 3 INPR(R5) ,UCBSQ_XG_RCV_ bd Rev inpr List 
OOFO ¢5) 606663 XR Iad 45 MOVAB UCB$Q_XG_RCV_INPR(R5S) -UCBSO~ XG Acv. INPR+4 tRs$ 
54 0000 CS 0D ! E3 8 MOVL UCBSA_XG_PRO “BUFFER(RS), R4 ~ : Set oh on a buffer 
\ ; rt ASSUME LAPBSW_DEIBC EQ LAPBSW_DEITYP+2 
12 AG O3FC 8F 2p ER 50 MOVZWL #NMASC_CTCIR_DEI,LAPBSW_ DEITYP(R4) *. ping of error 
16 AG «094 i6 «3851 CLRB~=—s LAPBSB- DEICR (RE) : Clear e 
10 AS 301 26 CLRB LAPBS$B_XQCNT(R4) : Clear ne xmt cnt field 
0 AG AS JE 12F1 5 MOVAB LAP B$0- =antacne) Bars tte XMTQ(R4) Init Realise queues 
4 AG Ad 9E 12F6 34 MOVAB areee-in Q(R4) JL PBSO-XMTQ+4 (R45 
8 AG AS YE 12F 5 APR ANG (RS ST APBsO. CLEANQ(R4) ; Initialize queues 
C AG AG SE 1 2$ MOVAB Witte “ELEANGIRG) LAPBSQ" CLE NO+4 (ROS 
0 A4 AS =69E (1 5 MOVAB tAPBSO™ BLANK (R4) ,LAPB$Q OBLANK (RS) : initie ize queues 
4 As 0 AS Q9E 130A 28 MOVAB LAPBS$Q~BLANK(R4) .LAPBSQ BLANK +4 (RG) ; Initialize queues 
3 4A5 D0 130F 5 MOVL ase 349 CRBCRS) R& 3; Get the CRB address 
46 2c Bs 00 1 13 60 VL Ce INTDS *yECSL_ IDB(R4).R4 ss: Get the CSR addres s§ 
131 6 DSBINT 5 ; Lock out interupt from device 
52 0144 C5 43 131 66 VAL U 6 5h eae R2 ; Get the eddr of SYNC params 
04 A4 1 6 VW CAREG(RA) ; set the f rst Ind reg 
50 6 1 8 MOVZBW TRL R2),R 3 type of error checking 
03 so” A ' A 8 INSV — —1— PROTOCOL ,- * type of protocol 
06 A4 g 80 1 5 8 MOVW RO GSC. IND CRD CRG) 3 nee 1RO 
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#0.XGSC_IND_ADDR(R4) 


RO, XGSC_IND_ADDR(R4) 
’ at IND=ADDR(R4) 


C~INDZADDR(R4) 


7 
8 3; Set the receive and transmit csr's 


208: 


10$: 


MOVZBW 
ASSUME 
TSTB 
BEQL 
Bisw2 
MOVL 
INSV 


8 
BISW 
ENBINT 
BSBW 


BLBC 
MOVZWL 
BRB 


#XGSM_INT_ENABLE ,RO 
NMASC-LINCN NOR EQ 0 
$8-XG_CON(RS) 


#XGSM_ILP_XCS,RO 


RO,R1 
UCBSB_XG_MNT 
#XxG$vV-LOOP_T 
R1,XGSC_RCV_CSR(R4) 
#x6$m_TERM TDL,RO 
RO, XGSC_XMT_CSR(R4) 
#x6$M_DTR,R 


#XGSn_ 


M“RTS.R 
#XGSC“MODEM, XGS$C_MISC_REG(R4) 


RO, XGSC_IND_ADDRTR4) 
yt: POWER 


#UCBS0_POWER ,UCBSW_STS(R5S) ,10$ 


#SS$_POWERFAIL,RO 
SET ONIT LAPB ERROR 
#XMSM_STS_ACTIVE,- 
UCBSL ~DEVDEPEND (RS) 
FILLEREELIST 

R 


SET_UNIT LAPB_ERROR 


$*#SS$~ NORMAL, 
SET_UNIT_LAPB_COMP 


SET_UNIT_LAPB_ERROR: 
PUSH R 


BSBW 
P 


SHUTDOWN_L INE 


SET_UNIT_LAPB_COMP 
AOVL 
MOVW 
MOVL 
REQCOM 


UCBSL_IRP(RS) RS 
R ycBsu BOF F (RS) 
UCBSL_DEVDEPEND(R5) .R1 


LOOPB(RS) ,- 
YPE ,AXG$S_LOOP_TYPE, 
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; Interlock powerfail 
BR if 


re 


Init IR1 
Set baud rate 


Init IR 
Init IR 
Init IR4 
Init IRS 


Set to enable interrupts 


Normal controller? 
If EQL then yes 

Set internal clock src 
and internal loopback 
Move into R1 

Set LOOPB type 


Set for RCV's 
Set RTS on 


no power failed 
Enable sastorrupts at FIPL 
Set reason to abort 


Set active state 

Return to fork IPL 

Fill rcv free buffer Q 

Branch to shutdown the device 
Set normal return 

Comp the request 


Save reason to abort 
Shutdown the Line 
Restore reason for abort 


Retreive packet address 

Set success 

Set device depend char 

Jump to complete the request 
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134 19 344 
} 8 ;SET_UNIT_DDCMP = Set default characters on board protocol support is DDCMP | 
! 2 ; : Sets the device characteristics to be that for DDCMP | 
i 2 3 ¢ ; The defaults are as follows | 
13¢4 39 : ; IRO:  Proctol = DDCMP, Error = CRC16; Bits/char = 8 
13C4 3927 ; IR1: Clear RCV error 
13¢4 39 8 3 ing: Clear XMT error, Set default baud rate = 19.2kb/sec 
13C4 5929 ; IRS: Set number of syncs = Set sync char = 150 
13C4 2 ? 3 Ro: Clear data set change bits 
: ee 3 3 IRS: Set station address 
134 39 j : INPUTS: R4 = CSR address 
13C4 39 : 3 RS = UCB address 
BE Be 
13¢4 39 ; SET_UNIT_DDCMP: 
52. 0144 (5 DE 1304 3938 MOVAL UCBS$Z_XG_SYNC(RS) ,R2 : Get the addr of SYNC params 
04 Ad 09 BO 13€9 3939 #0, XGSC_MISC_REG(R4) ; Set the first Ind reg 
50 6 13CD 3940 nu— XG$B_ERR_CNTAL(R2) RO 3; Set type of error checking 
50 40 He if 1300 3941 #XGSA_STRIP_SYNC rb ; Set to strip excess sync char 
AS =650)=— BO s13D4 4g MOVW RO,XGSC_IND-ADDR(R4) : Init 1R0 
mM 00 80 D8 945 nov #9, XGSC“IND-ADDR(R4) : Init IR1 
08 04 23 FO 1 Dg 945 INSV 3*8 BAUD (R2) , #XGSV_XMT_BRG,- ; Set baud rate 
50 9 13E Bes #xG$S_XMT_BRG,R 
Q A450 «BO 1364 394 MOVW RO,XGSC_IRD_ ADDR(R4) : Init IR2 
6 OSA 8 13€8 38 MOVZBW X6$B_NUM SYAC ING) AO : Set number of syncs 
08 so” A F : i} 38 INSV rose syne re (R2) ,AXGSV_SYNC,- ; Set sync char 
06 A4 g BO 13F2 3951 novu RO. XG§C_IND_ADDR(R4) : Init 1R3 
06 A4 0 8 13F6 826 MOVW #0,XG$C_IND ADDR(R4) : Init IR4 
50 0000 ¢ 0 13FA 395 MOVL UCBSA_XG PRO BUFFER(RS) ,RO : Get protocol buffer type 
50 OD 8 3 13FF 63954 MOVZBW TFSB_ADDR(ROY,RO ; Get trib address into word 
4 50 80 1403 959 MOVW  RO,XG$C_IND_ADDR(R4) : Init IRS 
1387 $37 3; Set the receive and transmit csr's 
50 20 98 1407 939 MOVZBW #XGSM_INT_ENABLE ,RO : Set to enable interrupts 
140A 3960 ASSUME NMASC“LINCN NOR EQ 0 
0152 65 «(95 «140A 3961 TSTB B$B_XG_COR(RS) ; Normal controller? 
63 1 14 9 § BEQL $ 3; If EQL then yes 
50 0100 8F 14 36 BISW2 #XGSM_ILP_XCS,RO 3; Set internal clock src 
1 1238 — 
3 Move into 
3157 20 pe 141 308 INSV UCB$B_XG MNT _LOOPB(RS),- ; Set LOOPB type 
51 02 63 141C 396 #XG$V~LOOP_TYPE ,#XG$S_LOOP_TYPE,R1 
91 141F 968 CMPB ss @NMAST_LINPR_TRI,- ; If trib then set bit on board 
0150 : 1° i 38 — Yrose_XG_PROTRS) 3 so that address is checked 
51 000 8F AB 14 oy BISW #XGSM_PRI_SEC_STN,R1 3; Set that this is a trib 
zu00 BO 14 97% 308:  mOVW RI -XGSC REV. CSR(RS) : Set for RCV's 
ee ee ae — 4 
OAS 06 BO ta 975 MOVW  #XGSC"MODEM,XGSC_MISC_REG(R4) * | 
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6 9 
= VAX/VMS DMF32 Sync Line Device Driver 1 “$601 
Set protocol characteristic -$ 


§ 
— 3 FUNCTIONAL DESCRIPTION: 
! ; 


: INPUTS: 
RS = UCB address 


; OUTPUTS: 


bc Ob:20:17 


* -SBTTL Set protocol characteristic 
; SET_CHAR = Set characteristics of protocol 


P-1 


AX/VMS Macro V04- P 
DRIVER. SRCIXGDRIVER.MAR; 1 ge Rt $ 


; This routine is entered to set characteristic on a halted protocol. 


997 ; New protocol characteristics given to protocol. 


998 :-- 
399 SET_CHAR: 
CLRL 


R7 
MOVW #MFOSK LENG 
—* UCB$Z_%G_DD 


Cd IO UNE Wi 
— < 
o ow 
ooo 
ak one oe 
2 2282* 
— ——— 
z 
” 
oa 
o 
zmz 


2 
mmenere 
2322 


SETBIT #DLKSO_SETDEF ,R7 
TSTB UCBSB_RG_PROCRS) 


BEQL 

CLRBIT #OLKSV_SETDEF ,R7 
SETBIT #OLKSV_STATYP,R7 
ASSUME NMASC_ 
TSTB B$B_XxG 
BEQL 

SETBIT ool Key p PLEX ,R7 
USH #*A<R 


DOCMP 
8 #*A<R3,R5> 


Ww 
So 
aad 
- 
oo 


W—CODNOULWN—OOONOULWN OD 
— 
Oo 
oe 


XG_MFDLEN(RSS 


T>,R7 
ASSUME NMASC_LINPR_POI EQ 0 


BPx_FUL EQ 0 
*puPiRS) 


208: PUSHR =R5> 
MOV. UCBSA KG. PRO, BUFFER(RS) .RS 
MOVZBL #DLKSC_CRAR.RG 
CLRL OR 
BSBW 


Set no charac to change 

; Set protocol header sz 
Get trib parameter block 
Use this field for RTO's 


And for number of Select 
intervals 
Use repwait for selwait 


Set to reset these param 


; Set default char 


If EQL then point to point 


; Use user given char 
; Else set trib 


; If EQL the full duplex 


lse set half duplex 
ave regis 


3 ers 
; Get addr 7 start of TFB 
; Set charac in DDCMP 


Restore the registers 


— — 
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XGDRIVER = VAX/VMS_DMF32 Sync Line Device Driver 16-SEP-1984 00:43: AX/VMS Macro V04-00 Page 89 
a ART_UNIT_BISYNC = Start up device in -SEP- 720: VER. x VER.MAR; 
yOa bu START_UNIT_BIS ad S$ devi { B SEP 1384 88 $5 F YORI ER.SRCIXGDRIVER.MAR; 1 . (49) 
1? ; : : * . SSTTA START_UNIT_BISYNC = Start up device in BISYNC mode 
H id 4 - Start up device in Bisync mode 
13 E 2 START_UNIT_BISYNC = Start device in Bi d 
14 E 4 3 ; As in LAPB, Bisync goes not have a seperate start up for the Line and circuit, 
1468E 4 3; therefore when issuing a startup on the Line, we must start the entire 
14 ; 4040 ; protocol. It must also set the necessary field both in the UCB and on the 
1 ; — device. 
148E 4045 ; INPUTS: 
3 = ress 0 
1 E — rt: RS = Add f ucB 
14 : 4 8 OUTPUTS 
148E 4047 ; RO = Status of request 
148E 4 8 R1 = Contents of UCBSL_DEVDEPEND 
148E 4049 ; 9 = IRP address 
1? : 4 29 3 RS = UCB address 
148E 4 53 START_UNIT_BISYNC: 
08 44 45 0B 1 14 405 #XMSV_STS_ACTIVE ,.UCBSL_DEVDEPEND(R5S),10$ ; If BC device not active 
50 0204 BF 3C 1493 4054 MOVZWL #SS$_BEVACTIVE RO ; Set device active 
0114 1 1308 — 3 BRW START_UNIT_BISYNC_ERROR 3; Complete in error 
08 68 AS 02 0 1498 4 A] 10$: BBS #XG_DS_V_INITED UCBSW_DEVSTS(R5),20$ ; If BS then Line started 
500204 BF SC TGA 4058 MOVZWL #SSS_DEVACTIVE.R : Else complete request 
0107 1 * $323 BRW START_UNIT_BISYNC_ERROR : in error 
14A8 4061 20S: IF DF BISYNCSSS$ 
14A8 4 ¢ moval wp layee framing_routine,ucb$a_xg_frame_addr(r5) ; For testing BISYN 
128 ? o7 -ENDC DF BISYACSS$ 
68 AS BFFB 8F AA 14A8 4065 BICW #*°C<XG_DS_M_INITED!- 3 Reset flags 
14AE 4 96 XG_DS_M_CTSTQE_RUN>,UCBSW peystses ) 
44 AS FFFFF700 BF CA 14AE 406 BICL  #XGSC_CIR“PAR,UCBSC_DEVDEPENDTRS) ; Reset read/write flags 
120 C 34 1486 4 “8 CLRB CBSB-XG_RSTATE (RS) : Set XMTer state to idle 
164 C€ 14BA 4 — CLRB UCBS$B_XG_XMTCNT(R5) 3 Clear XMT's outstanding 
165 3 B4 14BE 4070 CLRW UCBSW_XG_MFDLEN(R5) ; Set zero protocol header 
54 Cc 0 14C2 4071 VL tte XG_PRO_BUFFER(RS) .R4 ; Get protocol buffer address 
0 AG AS —€ 14€7 4 a MOVAB BI YNCSQ~XMTO(R4) .BISYNCSQ_XMTQ(R4) ; Initialize queues 
AG AG 9 ace 407 MOVAB BISYNCSQ"XMTQ(R4) -BISYNCSQ -XMTQ+4 (R45) 
8 AG aS —E 1401 4074 VA BISYNCSQ~CLEANQ(R4) ,BISYNCSQ_CLEANQ(R4) ; Initialize queues 
C AG AG —€ 1406 4075 "] BISYNCS$Q_CLEANQ(R4) ,BISYNCSO CLEANQ+4 (R45 
0 A4 AS 9E 14DB 4 6 MOVAB BISYNCSQ_| LANK(R4) ,81SYNC$Q_BLANK(R4) ; Initialize queues 
4 AG AS 9E 1460 407 MOVAB BISYNCSQ BLANK (R4) ,BISYNCSQ_BLANK+4(R4) 3: Initialize queues 
54 4Aa5 DO 1465 4 4 MOVL “3 CRBC(RS) -R4 3: Get the CRB address 
54 C B84 DO 14€9 407 MOVL acresc INTD*VECSL_1DB(R4) .RA 3: Get the CSR 
14ED 4 9 DSBINT UCBSB_BIPL(R 3 Disable interrupts 
52. 0144 C5 DE 1474 4 MOVAL UCBSZ_XG_SYNC(R5S) Rg 3; Get the addr of sync params 
AG 14F9 4 3 MOVW #0,XGSC_MISC REG(RS > Set the first indirect reg 
50. 6 14FD 4 MOVZBW XG$B_ERR cure R2) ,RO 3 Set type of error control 
03 so" A é 4 4 INSV xGs PROTOCOL (RZ) ,XGSV_ PROTOCOL .- 3 Set type of protocol 
1506 4 SETBIT #XGS$V"STRIP_SYRC RO : Set to strip sync characters 
AG BO 150A 4 MOVWY = RO, XGSC_IND-ADDR(R4) : Set IR 
AG , 4 8 nov #9.X6 C"INDADDR(R4) : Set IR 
08 O4A FO 1514 4090 INSV XG$B_BAUD(R2) ,@XGSV_XMT_BRG,- ; Set baud rate 
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XGDRIVER = VAX/ DMF32 Sync Line Device bay er 16-SEP-1984 AX/VMS v04-00 p 
—W START 4 Fe Start up device mB -$ Pa} 984 88: 33; $F DRIVER.S SREINGD XGDRIVER.MAR; 1 _ (25) 
5 4 #xG$s$ ant age RO 
ie g 0 Ovw RO, xGSC ABDR(R4) : Set IR2 
9s A MOVZBW XG 453 NOR bd WRC (R2),RO 3 Set number of syncs 
50 A F INSV XG —5 REG(R2) ,AXGSV_SYNC,- ; Set sync char 
6 Ad 8 novu — ADDR (RG) : Init 1R3 
6 AG 3 8 MOVW —3 — ADDR(R4) : Set IR4 
6 AS MOVW #0,XG * IND “ADDR(R4) 3 Set IRS 


: Set the receive and tranmit register. Do not enable interrupts on the 


; rece ver side. 


> 4 


50 D4 CLRL RO 
ASSUME NMASC_LINCN_NOR EQ 0 
0152 C5 3 TSTB y BSB_XG_CON(RS) : If EQL phen controller not 
. oe BEQL : loopback 
50 p 00 30$ aieue #XGSM_ILP_XCS,RO 3; Else set "Teapbock 
157 F INSV UCSB XG_MNT_LOOPB(RS) ,- Set loop back type 
51 02 69 LOOP. TYPE .#XGSS. LOOP_TYPE,Rt . ” 
8 1 8B MOV RI Ink RCV_CSR(R4) ; Set the RCV csr 
0 0 A B1SW2 axGsn IRT_ERABLE RO ; Set XMT char's 
02 A4 : MOV 0,xGSC_XAT CSRiRa) ; Set the XMT csr 
50 0200 BF 3¢ MOVZWL RK _DTR,RO : Set DTR hig 
04 44 4 +4 VW 94*8 “Roem, pee MISC_REG(R4) : Set to set up the modem IR 
06 A4 0 8B MOVW Xx x —88 DRTR4) 3; Set modem IR4 
SETIPL a del Lock out {nterruste 
OA 64 A5 05 €1 BBC Abbie POSER. UCBSU. STS(R5) ,40$ : Check for power failure 
ENBINT : Return to fork IPL 
50 0364 tH 3C MOVZWL #SS$_POWERFAIL,RO 3 Set power failed 
11 BRE START_UNIT BISYNC_E ae ete startupin error 
40$: SETBIT #XMSv— STS ACTIVE, ocese “oevperenoin a ; set active 
ENBINT nterrupts 
54 8000 cs b0 MOVL UCBSA_XG_PRO_BUFFER(RS) .R : Enab rotocol buffer 
14 AG 150 C5 D MOVa UCBS$Q"xG_ “STATE_ INFO(RS), BISYNcsa’ INIT _STATE_ TNFOCR4) 3; Set init stat 


ASSUME BISYNCSW_STATUS EQ BISYNCSW_RCV_INDEX+2 
ASSUME BISYNCSW"DROP_RCV EQ BISYNCSB_XGCNT+1 


AAA HA AAAI NINPINININININININD 


PPPAAATIAUAUIVIND FS BD NNN? UNIT DS UN MD OL $$ MF POCOAKLLLLLFOOOOHITMPO —H 
NAN 2 ODA 9 ONAN WIN @ OOO NA NE WIN 2 OC OD NAW EO ODO 


WOOO OOOOO OO OG09 0969 69 69 G9 0969 SIP PAO I BB BE — I I WIIIIIII nnn = 2 


PU OO Oa eal eal eal ahah al al ab ab ab sh Ab db db Ab db db pbb bedb db dh dh ah ah sh sh ash sb th sh ah ab sh ah ab ab edh sh sh ah shes sh his) aa ah ahead ea) ‘<= 
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6 AS DG CLRL BISYNCSW_RCV_INDEX(R4) : Clear index and statsu fields 
1 9 D4 gta H SYNCS$B_XQCAT(R4) 3; Clear xqcnt and drop rcv field 
ooſt BSBW PpLLFREELIST 3; Fill free List with buffers 
4 BED ; POPL R 
; Take a buffer ren see. He aust to use as the receive buffer. Cocaues of 
3 the nature of how e works ip BISYNC mode, we will not use the 
40 ; doubl byt ter cape hy of he. DMF32 sync fer’ for rece: ves. a AL. 
41 ; on this device w work on a timer base. Whenever the timer ees ore we 
42 ; will check fo ee anymore characters Rave been input. itt y hav 
45 ; then we will give thea 0 * framming routine and depend ng on ‘uhat * the 
44; ronaing routine decides t he butler may or ** not be c comp Leted. If the 
? 3; buffer is completed then al elds necesary for receiving are reset. 
50 00€&4 DS OF 47 * REMQUE @UCBS$Q_XG_FREE(RS) ,RO : Get a buffer for rv's 


XGDRIVER = VAX/VMS DMF32 Sync Line Device bray yer, 16- AX/VMS Macro Vv04-00 Pa 91 
—W START_UNIT_BISYNC = Start up device { ~SEF=158S 80:30:93 FORIVER. SReSechatvee.mar:1 2% «255 
d 18 1 gh 414 BvVS stant UNIT_BISYNC_ERROR : If VS then no buffers alloc 
1C AG — 1 41 MOVL Ueeea KG Re ay BOPEERCRG) : + Save the rcv buffer 
OOEC C t A 41 CLRG UCBS$Q_XG_RCO_INPR(RS ; Clear no buffer rcving 
1504 4152 ; Now go off and s start for timer to start looking for receive characters. The 
15A4 41 3 timer is responsib starting up the receive requests. This means that 
} * 9 3 START_RECEIVE rout me 4 s not called when running in BISYNC mode 
906 38 15A6 41 § BSBW pyaar get eine TIMER : Start viper and rev's 
0 15A7 41 BLBC RO.S T unit TLBISYNC. ERROR 3 If LBC then error on startup 
50 4 C 15AA 41 MOVZWL APL 3; Else Set success 
8 11 AD 41 BRB START sone MB TEYNC.. COMP 
15AF tie START_UNIT_BISYNC_ERROR: 
50 15AF £196 PUSHL R 
OB4A 15B1 416 BSBW SHUTDOWN_L INE 
50 8EDO 1584 4164 POPL RO 
1387 4165 
1587 2198 START_UNIT er COMP: 
53 8 a5 DO 1587 416 MOUL UrBst ER [RPCRS) R3 : Get IRP 
7¢ * B80 1588 4168 MOVW OFF (RS) ; Set Q10 status 
51 4 aS 00 158F 416 MOVL os eng SOLUBEPEND GR 5),R1 : Set device depend char 
1503 4170 REQCOM 3; Jump to complete the request 
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tart up the BISYNC DRIVER. SRCIXGDRIVER.MAR; 1 
-SBTTL START_BISYNC_TIMER = Start up the BISYNC timer 


9 
; START _BISYNC_TIMER - Start up the BISYNC timer 
; This routine is called to srart ye fre timer and the ceivesss on the DMF32. 


; The reason A can't use START_RECEIVE to start up rece® wes oe wo fold. 

; First we will never have more than one rece ve posted device at any 

; time ‘second because of phe way we have to handle rece 7 heretinle, That is 
runnin timer, which w nen ticks looks in the receive buffer to see if any 
an ers were input. This makes having two buffers posted rather 

useless. 


INPUTS 
= of preteens buffer 


OUTPUT 
RS = UCB address 
The receive for BISYNC is started up. 


ART_BISYNC_ TIMER: 
PUSHE R5 3: Save RS 
VL R5,R3 : : Keep the UCB ADDRESS 
MOVAB BISYNCSL_TOQE(R4) RS : Get TGE address 
MOVAW  G“BISYNC~ TIMER, T TOESL_FPC(RS) Set address at timer routine 
MOVQ = #XG$C sie DELTA, TOESO_ —RB 3 Set 
MOVL R3,TQE R5) 3; Set ib site UCB address 
MOVL R4, TQESL FR4(R5) 3 Set T QE with pro buffer addr 
MOVB #TOESC SSREPT,TQESB_ROTYPE(RS) ; Set system and repeatable 
CLRB  TQESB RMOD(RSS : Set no access 
novo G*EXESGQ ga tne. RO : Set system time 
JSB G*EXESINSTIM 3 Insert on timer queue 
OPL 8s 3; Reset UCB address 
SETBIT #BISYNCSV_TIMER_RUNNING BISYNCSW_STA ATU S$(R4) 
BISB #DPTSM_NOONLOAD;DPTSTAB+DPTSB_FLAGS ; Set driver not reloadable 
DSBINT UCBS$B _BIPL(RS) 
BSBW START~ RECEIVE  BISYNC 
ee 


a 
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XGDRIVER = VAX/VMS DMF32 Sync Lire Device Driver 16-SEP-1984 00:43:03 VAX/VMS Macro v04-00 Page 93 
—X FILCERECLIST = FILE MESSAGE TREE Piste” 3 3 zzi FORIVER eae ieGbatven.man:1 29° Bay 
] if ; 13 adi ~SBTTL FILLFREELIST - FILL MESSAGE FREE LIST 
161F 4017 : FILLFREELIST - FALL message block {ree ist 
: if ? 1 ; ADDFREELIST = Add a buffer to receive List 
iF 4 ; Functional description: 
161F 4 : This routine fills the receive buffer free List up to the quota specified 
eit 2 Z : at device startup. 
iF 4 5 : Inputs: 
isi 4 ; : R? = Buffer address (ADDFREELIST only) 
ielF 2 3 ; RS = UCB address 
161 4 p ; IPL = FIPL 
1eit 4 : : Outputs: 
161F 4234: R5 = UCB address 
161F 4235 ; R3 is preserved 
leit 2 § : R1,R2,R4 destroyed. 
161F 4 2 FILLFREELIST: : FILL free List 
52 D4 161F 4 CLRL 3; Clear buffer address 
EO 1621 4240 BBS #XMSV_STS_ACTIVE,=- : Continue if device active 
01 44 A 0 Mb 3 2 8 ase UCBSL~DEVDEPEND (RS) , ADDFREELIST F 
16 3 4 8 ADDFREELIST: : Add to receive buffer List 
53 DD 1627 4244 PUSHL R3 3 Save registers 
42 AS 81 1629 4245 5$: CMPW UCBSW_DEVBUFS1Z(R5) ,- ; Can new block be allocated ? 
010C C5 162C 4 8 Yeast _XG_QUOTACRS) $ 
7 1A 162F 424 BGTRU 0$ : Br if no - List filled 
1 D& 1631 4 $8 CLRL R1 3; Zero size 
0066 F Al 16 3 424 ADDW3 #RCV_T_DATA+CXBSC_TRAILER,- : Compute needed block size 
51 42 AS 16 4250 UCBSO_BEVBUFSIZ(R5),R1 $ 
3s 03 1 4 c 3] * Butter allocated already? 
00000000'GF 16 ies & fs JSB 6 EXE SALONONPAGED : Allocate nonpaged memory 
1A 29 E9 1644 4 a3 BLBC RO,10$ ; Br if failure 
8 7 1 88 1647 4255 7$ MOVW R1,RCV_W_BLKSIZE(R2) : Insert block size 
AA2 17 1648 4 36 MOVB  S*#DYNSC“NET,RCV_B_BLKTYPE(R2) ; Insert block type 
OE A Be 164F 4 CLRW cy W_ERROR(R2) : Clear error status 
00E4 C5 6 3 1 ¢ 4 } INSQUE (R2),0CB$Q_ XG_FREE(RS) 3 Insert block on List 
42 A5 Ae 1 4 UBW CBSW_DEVBOFSTZ(R5),- : Decrement quota 
010¢ C5 165A 4260 UCBSW-XG_QUOTA(R5) ; 
‘ D4 1920 4261 CLRL :; Clear buffer pointer 
C 11 1938 ? § BRE 5 3 
1661 4264 108: SETBIT #XMSV_STS_BUFFAIL,- : Set buffer alloc failure 
16 1 4265 YCBSL-DEVDEPEND (RS) ; 
10 11 19 ? 96 BRB 3 
16 be 3 208: CLRBIT #XMSV_STS_ BUFFAIL,=- : Clear buffer alloc failure 
1 4 U BS| “DEVDEPEND(RS) : 
50 52 00 1 8 4 ? MOVL R2,R : Set address of buffer 
06 13 #1 427 BEQL 1 : Br if none 


— 


XGDRIVER = VAX/VMS DMF32 $ ine oy Bei ter 16-SEP-1984 AX/VMS Macro V04-00 Page 94 
ra Nt FILLFREELIST - eit C MESSAGE T E List §-3 sat 88: $3: 9 YORIVER. SRCJ XGD RIVER.MAR;1 ° (51) 
00000° 16 1672 4 J$B G*COMSDRVDEALMEM ; Deallocate 
093908 6} 4 } i 2 i 30$: Hate 9 —— BISYNC,UCBSB_XG_PROTYBECRSS i EQL do not 
167F 4 > DSBINT UCBSB_DIPL(RS) : 5 —3 aterrusts 
7A 26110 1 $ 4 6 BSBB START_RECEIVE 3: Start then next receive 
1 427 ENBINT 3; Enable interrupts 
53 BERD ! : ? 4 40$: poet R3 3; Restore registers 
50 9 8 F 4280 50$: MOVZWL S“#SS$_NORMAL ,RO : Set for normal return 
3 bep? 1938 4281 POPL R3 ; Restore registers 
05 1695 4 ¢ RSB 
1696 4 


— 


N 
Line Device River, TECRESSES Q863:07 YAMS. ese yOtaoe nan; 29° (83, 


-SBTTL START_RECEIVE_BISYNC = Start receives in BISYNC mode 
START_RECEIVE_BISYNC = Start receives in BISYNC mode 


This routine starts up the receiver in BIS YMC mode. The receiver in 
BISYNC mode works differently at lh, the other modes because in this 
mode there is no way for the device to tell when the receive is 
comp ete thus we must check each character comming off the line to 

t }s part of the message we gee re . ving. vin order to do this 
the follow th has been inplenented. At dev start H buffer is 
ae al from : —* st and stored in BISY Ne A_RCV ‘8 FFER, t his 
buf ep’ neve 0 .eet as a holder for characters geantag OF off the wire. 
Bi srncst RCV_ twoex —3 point to the next character from the Line 
w tbuffer. As we detect that a new character has c J int 
the butter. os wilt pass that character to the FRAMING ROUTINE —3 
by the starter. The character will either be buffered or not in the 
actual receive buffer (See BISYNC_ TIMER for an explanation). 
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INPUTS 
R4 = Address - —⸗ buffer 
RS = UCB addre 
IPL = "heeled IPL 


OUTPUTS 
R5 = UCB address 
The receive is started 
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WODOODOOOOOOOODOOOOOOOOOOOOOOOOOO Ms 


ö AAAAAAAAA AA AA AAAS AISASISISIISS OM 


ETART RECEIVE _BISYNC: 
BBS ace -DS_V_RCVING .UCBSW_DEVSTS(R5) aes 108 ; if BS not rcving 
: s 


PEA AAAAAAAAAAAAAA AAA ASA AISIASASISASSISAIASAS De 


BE WWM AA AAA APORPINPININININININ) 2 2 2 3 9 3 a BQOOOOOCOOO000000000000000000000 


SOO NIA NE WIN 2S OO NAME WIN @§ SO OD NAN EWN 2 9 OD NAME WIN EW OOONAM 


ANNA AANA AA AMA MAMA MAMMA AMAA NAAM AMAA AMAA AMAA ———————————————— —— — FTF 


8 01 + €0 P 
8 06 EO 98 BBS #XG"DS-V ancy DONEP, UCBSW_DEVSTS( RS et then rcv is loaded 
51 244A DO AO MOVL ucest CRECR 1 : Get the CRB address 
54 2 8} 00 AG MOVL RBSC Intbevécsu -IDB(R1),R4 =; Get the CSR address 
3} 6 C A8 MOVZWL axeee _PRI_R : Set ind reg primary buffer 
3 602 9A 16AB MOVZBL Atti ~PRIRCY VRS 3 Set mapping vector to use 
52 O0E4 38 oF eas ome oucesa_ XG_ FREEtRS). R2 : See if any RCV buffers free 
OOEC C5 52 bo 68 MOVL — XG a ety? 3; Set rcv buffer 
O0FO CS) ä 161 CLRW vee W_XG-RCV_INPR_INDX(RS) : Clear index 
50 0000 CS DO 168 MOVL XG_PRO -iF FERCRS) RO : Get the protecol buffer 
52 1C 9 z8 6C MOVL BISTNCSA- RCV_BUFFER(RO),R : Give board the buffer to rcv into 
we 6C BSBW V"MPR™ > Lo ? the receive buffer 
OOF2 CS 12 A2 BO 16CA MOVW RCV ite 5A C42 (R2) « yucpsu. XG_RCV InIT(R Sa ve char count of buffer 
OOF2 cS) «02 969f 99 F 600 INSV #0,715,8 G_RCV_INTT(RS) : tone" high order 5 
64 04 AA 16D Bicw2 #xésm bRA’ yee sist SC"RCV=CSR(R4)_ ; Make sure we are usin the primayr 
6DA SETBIT #XG_DS_V_RCV SONEP-UCBSW parasite Set receiver is loaded 
6DF CLRBIT #XG_DS"V~ ~REVENS. NOcéSu DEUSTSCR i: clear enable recone bit 
6E4 DOSBINT 3; Lock out n'povertat 
OA 64 AS 05 Fe 6EA BBS tite POWER ,.UCBSW_STS(R5) ,20$ : If BS then power ott 
64 O01 A Ger BI sy #XGSM_ENABLE.XGSC_RCV_CSR(R4) =; Set the enable b 
50 01 és 6F 10$: MOVZWL S“#SS$_NORMAL ,RO 
5 or RSB 
F9 208: ENBINT 
50 0364 8F 3 FC MOVZWL #SS$_POWERFAIL,RO 
01 RSB 
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Start any receives “SEP- DRIVER.SR RIX XGDRIVER. 3) 
-SBTTL START_RECEIVE = Start any receives 
; START_RECEIVE = Start receives 
¢ FUNCTIONAL DESCRIPTION: 
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vo4~000" START. 
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S this routine oversees giving reset e buffers to the peered. It's job is to 

; check and set the copy of the DMF32 receive bits that the driver keeps to 
; tell —— grater (primary or secondary) it must load next. If there is no 
$ ; receive buffer to give the board, the routine must be smart enough not 

to try. to enable the receiver. Unsolicited interrupts can happen if the 
; ; board’ s enabled poe the buffers haven't been loaded. Otherwise the 

fous ne enables the board after each buffer is loaded whether the board 

is 221 — 7 —* Remember that this routine may load more 

; than one buffer a 


INPUTS: 
; R5 = UCB address 
: IPL = Device IPL 
; OUTPUTS: 

; RS = UCB address 
: RO - R4 destroyed 
§ 


— iIr 41 receive operation 


mReV DONER>,- 


x to indicate the pri buff 
HG DS. RCRCY DOM —— 


was loade 


01 Ss XG V Beying “ : If BS then device not 
15 68 AS UCBSW_DEVSTS(R5S ,12$ ; not receiving 
51 $e AS 00 MOVL UCBSL_CRB(R5) ,R1 : Get she CRB address 
54 C Bi D MOVL acresc INTD+VECSL_1DB(R1) R4 3; Get e CSR 
0S =s€ BBS #XG_DS_V_LOADRPS,- 3; If as” th en load sec buff 
26 68 AS uCcBSw_BeEVSTS(RS) ,20$ 3 else load this buffer 
06 e1 10$: BBC #XG_DS_V_RCV DONEP = : If BC cee mek —— 
06 68 A UCBSW_BEVSTSTRS) , 13$ 
004 1 BRW 308 ; Jump enable the device 
005 1 12$: BRW $ 3; Jump to return 
51 8 C 13$: MOVZWL #XGSC_PRI_RCV,R1 : Set ind reg pri wut rer 
53 A MOVZBL #XGS$C~PRIRCV,R3 : Set mapping vector t 
52 0064 oF REMQUE cBS0_xG_ FREE(RS) ,R2 : Get next buffer to Inout into 
: Branc 
00 3 %0 BSBW LOAD_RCV_MPR ; Load the ——— buffer 
OOFO DS) «6 ; INsaye (R2) @UCBS$Q_XxG RCV. INPR+4(R5) 3; Insert it on the inpr queue 
A BISW #<XG_DS_M_LOADRPS 3: Set to load sec buff and 


68 AS 0060 4 


SEV Vo VVwwVCQlwVCo CCV VVC CVC TTOwwvr rrr Ii 
PAWN AANA NIAAA AIA AIAN NIAINI NIN WWIII IWAN WII AIAN AIA NIAAA 
OOOO OOOO O69 0969 69.69 69 09 69 69 C9 SI NINN NSN SND PAA AAA AAA ITI £* — 
SOO ASW 2 9 OD NAMES WIN SO OOD NA UE WIN OO NOU EWN OWODNAUE 
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POD PIF WNL AFA WGI FBO OOD SD NI EPIPONPIPIPIPINIPIPOPIPUPIPIPIPUIPIPUAIPIPAIUARIPUPIPUPINININD 


m 

o 
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EO 208: BBS #xG_DS_V_RCV BOWES - If BS then sec loaded 
1F 68 A UCBSW_DEVSTSTRS) , 30S 

1 C MOVZ #XGSC_SEC_RCV,R1 : Set ind reg sec butter 

3 A MOV? : XGSC™ SECRCV,R3 : Set mapping vector to 
52 OE4 8 F —* gycesd XG _FREE(RS), R2 ; get nes batter to Ae ag into 

: Branc 
003 %0 BSBW LOAD. RCV_MPR 3; Load the —“ buffer 

0OFO DS) = 6 E 0 INSQUE (R2)7@UCBSQ_XG_RCV_INPR#+4(R5) ; Insert it on the inpr queue 
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XGDRIVER = VAX/VMS DMF32 $ $yne Line Device — 16-SEP-1984 00:43: AX/VMS Macro V04-00 Page 
raat START RECEIVE = Start any receives -SEP-1 138 8319 YORIVER. SRCIXGDRIVER.MAR; 1 . (38) 
2 AA 1754 44 BICW #XG_DS ADRPS,=- 3; Clear to load pri next 
6 8 1736 44 UCBSW Devs sens) — 
0080 a8 1 44 BISW 45 5535 Rey BONES. 3; Set to indicate sec buff 
68 AS 8 C 4404 ucesy. oes sth 3; was loade 
— —5 1 4405 30$: BBCC rst Rey ENG. : If BC then  aoaning to 
11 68 A 176 44 5 Ucesu Sains $(R55,35$ $ give the board 
17 44 DSBINT 3; Disable a § interrupts 
OA 64 AS 83 E 17 44 8 BBS #UCBSV_POWER,UCBSW_STS(R5),40$ ; Branch 188 — fai 
64 01 AB 17 ß 440 BISW  #XGSM_ENABLE.XGS$C_RCV_CSR(R4) ; Enble 
17 rea ENBINT 3 —B8 me PL 
50 01 a 1774 4411 358: MOVZWL S“#SS$_NORMAL ,RO 3 Set normal return 
i ite 
1778 4414 $03: ENBINT 3; Enable interrupts 
50 0364 8F 3 17 4415 45$: MOVZWL #SS$_POWERFAIL,RO ; Set powerfail status 
i 
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XGDRIVER = VAX/VMS_DMF32 Sync Line Device Driver 16-SEP-1984 00:43:03 VAX/VMS Macro V04-00 Page 
ral Nt START_RECEIVE = Start any receives — 83 DRIVER. SRCIJXGDRIVER.MAR; 1 . (55) 
158} 290 :+s 
1 ! 8 zOAD. RCVSIMPR = Load receive map registers and character count 
1781 4425 ; This routine gets a free recevie out of the queue and sets up the mapping 
1781 4424 ; registers and BACC to give to COMBO. In this case che couse but Tor tng 
1781 4425 ; is used so that the board will always have a buffer in which in can receive. 
1781 44 § : If too few buffers are allocated or if they are not completed quick enough 
1781 4427 ; i.e. too few IRP's given to cong lete the buffer, then no action is taken and 
i ! 8 3; it is left to the caller to decide what must be done. 
1781 44 9 : INPUTS: 
1781 4431 ; R1 = Address of the indirect register to load 
1781 44 § 3 Re = Address of a buffer to receive into 
1781 4433; R35 = Vector slot to use 
1781 4434; R4 = CSR address 
We : 9 33 IPL = DIPL 
1781 44 $ 3 OUTPUTS 
i : 7 3 3 R2,R4, and R5 are preserved 
7 4440 LOAD_RCV_MPR: 
3; Mark slot in use and create buffer address / character count image 
if ' rer Mark slot i d buff dd / ch i 
ig BB 1781 4444 PUSHR #*M<R1,R4> 3 Save registers 
54 0110 gst DE 17 3 4445 MOVA UCB$Z_XG_VECTOR(RS5)CR3],R4 ; Get slot address 
42 a5 0165 CS Al 17 2738 ADDW UCBSW_XG FDLEN(R5) ,UCB$W_DEVBUFS12(R5) ,- 
3 A 43 444 CV_L-BACC (Re) ; Insert character count 
51 42A H3 1791 4448 MOVAL RCV_Z_HEADER(R2),R1 3: Get normal buffer address 
10 a2. 1795 4449 MOVY = RT RCO_L BACC(R2S : Insert buffer offset 
10 a 07 09 64 FO 1799 4450 INSV (RO) #98 -REV_L_BACC(R2) : Insert map register data 
53 64 5 07 EF 179F 4451 EXTZV #7686 (RG) R : Get two high its 
10 A2 02 «1E 535 FO 14 4436 INSV R3.#30,#2,RCV_L_BACC(R2) : Insert in BA/CC 
HM S83 
33* ret ; Build UBA map register data and load map 
7C AS 51 FEOO 8F 8 17AA 1639 BICWS #*C<VASM_BYTE>,R1,UCBSW_BOFF(RS): Set byte offset 
7 AS 425 B80 1781 4438 MOVW  UCBSW_DEVBUFSI2(R5) ,UCBSW_BCNT(R5) ; Set byte count 
51 1 15 O9 €F 1786 445 EXTZV #VASV_VPN,#VASS_VPN,R1,R1 ; Get virtual page number 
50 go090000 ef 00 1 4460 MOVL PEt be PTBASE ,RO 3; Get SPT address 
78 A 6041 d 17C2 4461 MOVAL (RO)CR1J,UCBSL_SVAPTE (RS) 3; Set address of SPT entry 
3 24.05 OD W7¢ 4466 MOVL UCBSL CRBC ),R1 : Get CRB address 
Al 8 DO 17CB 44 MOVL (R4) ,CRB L_INTD+VECSW_MAPREG(R1); Set starting map reg number 
2 0 17CF 4464 PUSHL ; Save registers 
00000000 * GF 1701 4465 JSB G* IOCSLOADUBAMAPA ; Load the * registers 
BEDO 1707 446 POPL ; Restore register 
1 BA 17DA 446 POPR #*A<R1,R4> : Restore registers 
0404 5 BO 17DC 446 MOV R1,XGSC_MISC_REG(R4) ; Load into indirect register 
10 A2 BO 17E0 44 MOVW RCV_L_BACC(R2),- ; Load buffer address 
06 AG 17E3 44 p XG$C_IND_ADDR(R4) 
1 Ae BO 17€5 447 MOVW Cy C_BACC+2(R2),- 3 and character count 
9 A 17EB 447 XG$C_IND_ADDR(R4S 
1000 8F AB I7EA 447 BISW #XG_BS_M-RCVENB,- : Set to indicate that there 
AS 17Ee 4474 UCBSW_BEQSTS(RSS : is work for the board 
50 01 3C 1770 4475 MOVZWL S*#SSS$_NORMA: .RO ; Set normal return 
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: .SBTTL INTERRUPTS 
TRANSMIT_INTR 
; FUNCTIONAL DESCRIPTION: 


i this — is called yy an caterrust from the transmit vector occurs. 
he act s to check for errors on the tranmsit. If they occur then the 

: device ye be shut down because only fatal roars occur on transmits. 
Otherwise it makes we "78 goers co the driver agree as to what bits 

; should be set and i t puts the A fer *. * POST queue 

to te —*214 ot. sere k processing. tine inal ly. it tries te sherk up the 

vb — ne is runat ng Half duplex or 

ddcmp pas y then” ne thi s is a | sent message to be tee te in. this 

; selec on interval the XMTer is shut off. For half duplex this includes 

start ng yp a TQE on waiting for CTS to “he dropped because on real 

; pogens his may not Reppen right away. The modem must have dropped CTS 

; before we reasscert RTS otherwise it gets all confused. 


INPUTS 23 = IDB address 
SP) = RO - RS 


ere 
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OUTPUTS 
An entry is added to the post queue. 
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Transmit interrupt 


BDODOOOOO0O0O0000000 00000 co co cD CD CD CD CD 
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NAME WIN SO WO ODNAUE 


cc ce ce mc ce ce — me cee a cc ce ee ce ee a ee — — — — — — — — — — — — — ed — —— 
3 = MOOOCOCO NNN NH HHH HHH HHA 
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TENA LSB 
54 9E€ 00 0 MOVL a(SP)+,R4 ; Get IDB eddreee 
55 18 A& 00 4 MOVL 1DB$L ~CBLST ORG), RS 3; Get Ucb addre 
EO 0 BBS #xesv~ : Branch BS deviee active 
03 44 A 10 UCBSL CDEVDEPEND (AS), 5$ 
8 31 11 BRwW INT : If device not active 
910 C D4 \¢ 5$: CLRL ucB i XG. XMTEND (RS) 3 Reset timeout 
4 64 00 1 MOVL R4),R4 ~ : Get CSR address 
9° Ad = BO 14 MOV XGSCXMT _CSR(R4) ,- 3; Save last XMT csr 
0124 cs 15 UCB$@_XG-XMTCSR(RS) 
04 AG BO 1 MOVW #XG$C- MODEM, XGSC_MISC REG(R4) : Load the IR with dsc reg 
AG BO 1 MOVW XGSC_IND_ oR (R4T,= > Save last DSC csr 
012A 3 18 uceBse@_x (R5) 
€1 1 BBC XG$V_ERROR,- : Branch BC no fatal error 
1A 0124 f : UCB W"XG_XMTFCSR(RS) .8$ : on the transmit 
04 A 90 Vw &XxG C In ERR. XG$C_MISC_REG(R4) ; Load the IR with error reg 
A ‘ MOVZBW X GSC_TND RODR(R4) .= : he error only low byte 
0128 C5 ue @_xG- — tas) ts * gnifican 
1 13 4 BEQL 3; if no error set (XMT's were aborte 
EO 5 BBS #XGS$V_MSG_LEN : If message length error then 
Oc 0128 C 6 UCBSW~ xe COATERR(RS), 10$ t non-fata 
IF DF ERRSSS 
bbc ~ . _latency_xmt : if BC fatal error not due 
ꝛAs xaterr (RS) 6$ : to a Latency problem 
incu yebsu- xg_xmtlat(R5) : inc the latency — count 
r 
§ 6$: ncw ucbSu, : gpttnuates) : inc nxm count 
¢ -ENDC =; DF 
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5 4 1 4 7$: CLRL : Set fatal erro or on device 
pip ° ! ? —9 Scueo FORK ‘ : Schedule a fork 
183A 4 
0128 65 80 18334 «(454 $83 CLRW UCBSW_XG_XMTERR(RS) ; Set_no error 
a Ss 3 454 $: BBC #XG$V_DONE _P,- :; If BC then may be from 
59 0124 g 1840 454 UCBSW-XG_XATCSR(RS) , 308 + Data.Set.Change 
D4 1844 454 CLRL R 3 Set to set up prim BACC 
52 OOFC C54 DO 1846 4 rk: MOVL yggsz_ XG_XMT_INPR(R5)CR3),R2 ; Get the buffer to conprete 
1 1 184C 454 BEQL 3s if Eat —*89 ot complete 
64 f 97 1846 4 48 DECB UCBSB_XG_ eal LLG : Dec ss from stot XMTs 
OOFC C5 a | 2 454 CLRL UCB$Z-XG_XMT_I R5)CR3] Clea A, A ddress from slot 
1 4 $3 CLRBIT bxe _DS_V_XMT_ ~bONEP™ ucBs$w _DEVSTS(RS) ° “Clear ndicating that the 
1 3 454 ; XMT CSR is now free to use 
0 €O 185¢ 45 9 BBS #XMTQsy CONTROL « 3; If BS then control msg do 
08 1f A 1 25 45 XMTQSB_FLAG(R2),15$ 3 put on post queue 
198 C B0 6 43 3 novu 35 ANTERR(RD) - ; Set error status 
OOF8 DS 6 OE 1 33 teez INSQUE — —RRX : Insert it onto the post Q 
£0 186C 4555 15S:  68BS ¢) 58 V_XMTI : If BS then time to turn Link 
2F 6B A 186F 4556 th —6 408 : and drop RTS 
2 OA VM 1 4557 18$: MOVZBL PRI_XMT,R2- : Set ind” reg addr of prim 
F4C1 301 $238 BSBW —38 CORT LAP : Load nee registers 4 BACC 
1750 €9 1 455 BLBC R 4 No tranmsit given to board 
1 4560 SETBIT #XG_DS_V_XMT_DONEP,UCBSW_ pevsts«Rs) = indicating that the 
1 4561 : ani CSR is not free to use 
1 2286 DSBINT $ syne to highest 
10 64 AS 83 —O 1 456 BBS #UCBSV_POWER ,UCBSW_STS(R5),25$ ; BS then power fail occured 
0204 01 AB 1 4564 BISW  #XGSM_ENABLE.XGSC_RMT_CSR( the) : iiss enable transmitter 
1 4565 ENBINT : Enable interrupts 
54 91 f 1 $258 208: MOVZWL S“#SS$_NORMAL,R4 : Set no errors 
0173 1 456 BSBW SCHED_FORK 
0161 1 ! $288 BRW INTEXTT 
1 4870 z3 ENBINT : Enable interrupts 
0165 31 : 383 08: 8Ru INTERR 
0120 65 —(94—i* 1358 40$: CLRB UCBSB_XG_XSTATE(RS) 3 Assume IDLE s 
04 A4 4 B60 1 4574 MGVW #XGSC_MOBEM, XGSC_MISC_REG(R4) : Set to, et Bo may indirect reg 
06.A4 1000 BF AA 1 4575 BICW XGSM-RTS,.XG$C_IND_ADDR(R4) Clear 
54 44 AS 7 «OC 1 4 6 tle oxney ane Mig} UCcBSL DEVDEPEND(RS) 08; Ry BS then ignore chck 
04 4 60 1 457 #xG8C —5 XG$C_MISC_REG(R4) Set to get modem indirect reg 
1 457 TIREUALT. 4 4 GSM Cts. —*8 IND_A ADDR(RG) .U.EGL 
120 5°” 06 \aoe 28g —88 ————— volte for i A Be oe 
4 * 
8 68 AS E2 1 4 BBSS G_DS_V_CTSTQE_RUR, UCBSW_DEVS S15(R5) 60$ ; If stlent is at 'd 
DD 1 & § PUSHL : Save RS oitens fork 
55 94 1 4 VAL uses XG_TQE(R5) .R : Get the CTS TQE block 
08 AS 06 18EF 4584 VB, #IPLE-QUEUEAST. TOESB_ROTYPE (RS) i Set IPL of fork process 
00° AF 1 4585 PUSHAB B*DRPCTSRET : Set return addre 
FSCF CF F 1 & § PUSHAW iuu TIMER : Set addr of CTs. Tae start 
0° GF 7 ' 2 JMP EXESFORK 
1 4 $ DRPCTSRET: 
OB AS 1 90 1 4 y MOVE #TQESC_SSSNGL,TQESB_RQTYPE(RS) ; Set single shot timer 
5 BEB 1 4 a ae 3; Restore R 
54 1 <a 4592 50$: MOVZWL S*#SS$_NORMAL ,R4 
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sRECEIVE_INTR 

FUNCTINAL DESCRIPTION: 

This routine is called when an interrupt from the receive vector occurs. It 
hecks for errors and if the error is non-fatal to the dev ce then the error 


s squirled away in the buffer to be handled at fork process time. It does 
checkin 8 eee fiver receive bits against the DMF receive bits to be sure 
ss 


; If the device is running in BISYNC mode then we should never get a receive 
interrupt. If we do get one then just dismiss it. 
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4 10 ; that al kosher. Next it removes a buffer from the receive 
4 11 ; inprogress queue checks to be sure that it is the buffer eupec tog and if OK 
4 123 gives the buffer to the post queue to be handled at fork processing time. 
2 : ; Finally, it gives a receive buffer to the device. 
4 18; INPUTS (SP) = 108 oggrese 
2 ! 3 4(SP) = RO - R 
4 18 ; OUTPUTS 
2 19 ; An entry is added to the post queue. 
1 
4 RETEIVE_INTR: 
54 X 00 4 MOVL (SP)+,R4 3; Get IDB address 
55 18 A4 00 7 MOVL IDBSL_UCBLST(R4) ,R5 ; Get Ucb address 
08 EO B BBS MSV_STS_ACTIVE,- ; Branch BC device active 
03 44 A UCBS$L ~DEVBEPEND (RS) ,5$ 
0008 33 RW INTEXTT : Branch device not active 
52 0 A $ MOVZBL #2,R2 : Set for max # of tms to loop 
54 64 605 $ OVL (R4),R4 : Get CSR address 
64 60 MOVW XG$C_RCV_CSR(R4),- :; Save the receive csr 
0122 C5 8 UCB$@_XG-RCVCSR(RS5) 
4 
4 
4 
4 
4 
4 
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DARAAAAAAAAAAAAAAAA AAA AAA AAAAAAAAAAAAAAAAAAM 


E 
E 
: 
0167 ¢S 01 9 #XG$C_PROTYPE_BISYNC ,UCBSB_XG_PROTYPE (R5) : BISYNC? 
8B 1 BEQL 3: If EQL then dismiss intr 
64 4000 8F ° BITW #XGSM_ERROR ,XGSC_RCV_CSR(R4) 3; Branch NEQ no fatal error 
1 A BEQL 13$ 3 on the receive 
1 60 C MOVW #XGSC_RCV_ERR,- : Load the addr of error IR 
04 A4 XG$C_AMISC-REG(R4) 
A4 «BO MOVW XGSC"IND_ADDR(R4) ,- : Get the error 
126 C5 UCBS@_XG-RCVERR(R5) 
0 F AB BISW #XG_0S_M REVENG - : Set to restart rev'r won't 
68 AS A 5 UCBSW_BEVSTS (R55 > get retsrted in fatal error 
C 8 3; device will be shut down 
83 C 4 BITW #<XGSM_BCC_ERR! XGSM_BUFOVR!- 3 If any set error not fatal 
D $8 XGSM_RES_BIT_CNT!XGSM_ABORT>,- 
0126 65 0768 BF 4 YEBSO_XG_LRCVERR (RS) 
. «me 9 BNEQ 
§ IF DF ERRSS 
bbc #xg$v_latency_rcv,- : if BC fatal error not due 
4 ucb$w_xg_rcverr(r5),110$ : to a latency problem 
4 2 incu ysbewaxgrcviat(r ) : inc the Latency error count 
, 


—_ 
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! — 1108: incw ucb$w_xg_rcvnxm(r5) 
| ? -ENDC = ;DF ERRSSS 
54 oe 4 CLRL RG ; Set fatal error on device 
444 9 1 4 BSBW SCHED_ FORK 3; Schedule the fork 
O9E 13 : Z ? BRi INTEXTT 
0126 65 84 «61950 4665 13: CLRW UCBSW_XG_RCVERR(RS) 3; Set _no error 
EO 19 4 § 15$: BBS #XG_DS_V-RCVPS.=- 3; If BS then complete sec buffr 
8 68 AS 1963 4 UCBSW_DEUSTS(R5) ,20$ 
64 80 BF 8 1966 4 8 BITW XGSM"DONE_P,XG$C_RCV_CSR(R4) ; If EQL buffer not compl 
19 4 BEQL 3 unexpected condition 
51 OOEC F 1398 4 y REMQUE PYLBS0_K6_ACV_INPRCRS) oA ; Get next buffer to complete 
dD 1 467 BVS 1 3; If BS then unexpected interrupt 
art | F AA 1308 83 16$: bicu #XG_DS_M_RCV poner. 3; Set that the buffer can be 
Ae 1978 467 UCBSwW_BEVSTSTRS) : reloade 
0126 C BO 197A 4674 MOVW UCBSW_XG_RCVERR(RS) = : Set any errors 
E Al 197k 4675 RCV_W-ERROR(R1) 
04 a4 0 BO 19 4 6 MOVW #XGSC-PRI_RCV1,XGSC_MISC_REG(R4) ; Set up to get bytes xfered 
50 06 AG §6BO «(1984 «(467 MOVW XGSC ND RDDR(A4) ,RO :'Get bytes transfered 
50 C F AA 1988 £678 Icw #*x< 5,R * Clear high order bits 
OC Al $e A 0 aA3 19 467 UBW3 = =RO,UCBSW SE vBuUFSIZ(RS) RCV_W_MSGS12(R1) 3; Get actual xfered 
OOF8 D 61 OF 19 4680 INSQUE {) ,aucB$a_x _POST+4(R5) : Insert into post queue 
19 AS 1998 4681 1SW -#XG_OS_M_RCOUPS;- : Flip the bit to say that the 
A 199A 4 § UCBSw_BEVSTS(RS) 3 next inter is expected on Sec 
f F5 199C 4683 17$: SOBGTR R2,108 3 GTR more work 
11 199F 4684 BRB 3; Else return 
64 0080 8F B3 19A1 8 5 208: BITW #XGSM_DONE_S,XGSC_RCV_CSR(R4) 3; If EQL sec buf has not comp'd 
a. ay 1348 4 — BEQL 3 Branch unexpected interr 
51 OOEC DS F 134 re REMQUE PYEBSO_XG_ACV_INPRIRS) -R1 ; Get next buffer to complete 
gp D 19AD 4 8 BvS 17$ 3; If VS then unexpected interr 
0080 8F AA I19AF 46 BICwW #XG_DS_M_RCV BONES. 3: Set that the sec buff can be 
8 AS 19B3 4690 UCBSW_BEVSTSTRS) ; reloaded 
01 ; 9 B0 38 $93) MOVW pe thd 3; Set any errors 
8 AS 09 80 128 83 MOV #XGSC-SEC_RCV1,XGS$C_MISC_REG(R4) ; Set up to get bytes xfered 
0 06A4 80 198 : 94 MOVW xG$C IN RODR(R4) ,RO 3; Get bytes transfered 
50 c000 ef AA 19¢ 95 BICcW #*x<T0005,R : Clear high order bits 
Oc Al 42 A 0 ad 19¢ 4696 SUBW3. RO, UCBSW BEVBUF SIZ (RS) RCV_W_MSGSIZ(R1) ; Get actual xfered 
0oF8 D5 «4961 «OF 19CE 469 INSQUE (R1),@UCBS$O_XG_POST+4(R5) : Insert into post queue 
1 AA 19D £008 BICW XG_DS_M RCVPS,- 3; Flip the bit to say that the 
68 A 19D 469 ucasw_DEVSTS(RS) t next inter is expected on pri 
C 11 130 $f 9 BRB 3; Any more work? 
Ag 38 139 47 § 30$: BSBW START_RECEIVE 3; Start any receives 
26 19DC 47 BLBC RO, INTERR : If clear then problem 
54 (O01 19DF 4704 MOVZWL S*dSSS_NORMAL R4 : Set no errors 
D3 19€2 4705 35$ BITL &@<XMSMCHR_HDPLX!- : If EQL then mode of device is 
19E5 47 $ XMSM_CAR_TRIB>,- ; not Half dup or Trib 
44 AS 00000084 7 1963 47 Loe $C_DEVDEPEND (RS) 
0164 4 19EC 47 TSTB 5560 _NG_HATCHT (AS) 3: Else check to make sure all 
14 1970 47 BGTR 3 outstandng XMT‘s have comp'd 
19 19F2 471 38: BSBB SCHED_FORK 3; For 
0 1 ! +] rat $: BRB INTEXTT : Exit interrupt 
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1 4 4 3 40$: ENBINT 3; Retore I Pt 
OA 11 ! ce ? } BRB INTERR : Exit sett ng error 
! 4 aH 3; Exit interrupt 
19FB 47 : inTEXIT: : Exit interrupt 
E 70 19FB 47 mova —8.4 
ts 4 4721 MOVQ (SP)+,R 
E 7D #1A 47 § MOVQ (SP)+,R4 
— 
14 4725 ; An unexpected interrupt occured. Since there is no NOP function to initiate, 
1A 47 § 3 the device must be shutdown. 
1s 378 
1A 3 47 $ INTERR : 
0685 30 1A05 4730 BSBW TIMEOUT ; Fake a timeout error 
Fl = 11 1ans of 1 BRB INTEXIT 
1A0A 47 § $ INPUT R4 = Device status 
1A : of : 3 RS = UCB address 
TAQ, 47 : SCHED_FORK: 
- 03 €2 1A0A 47 BBSS #XG_DS_V_FORK_PEND : Set fork pending 
09 68 A5 1A0C 4738 UCBSW BEVSTS(RS), 16$ 
34 1406— 4739 PUSHAB Bs FORR_DONE : Push return address 
00000000'GF 17 1Aie 4740 JMP G*EX SFORK : Fork down to FIPL 
04 54 E€8 1A18 4741 108: BLBS R4,20$ : If BS then no need to set err 
14 AS 4 g 1416 38 MOVL R4UCBSL_FR4(R5) ; Else set error in fork block 
05 AIF 4743 208: RSB 
23 4744 
1A20 4745 


— jRtSOES . ir Oven Belter pseetoes apes et HE Bh 
* -SBTTL FORKDONE = Fork process 
; FORKDONE = Fork process 
FUNCTIONAL DESCRIPTION: 


This routine is entered at device fork level when a buffer done 
has occured. 


INPUTS: 


R4 = Status from interrupt 
R5 = UCB address 
Fl 


IPL = FIPL 
OUTPUTS: 
R 
R 
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5 = UCB address 

6 - RO are preserved. 

If a receive 1/0 request is pending, the receive is completed. 
Otherwise, queue the message for a future 1/0. 


“Wit e Ge Ge Se Se Ge Ge Ge Ge Ge Se Se Ge Ss Se SseSsSseSeSeSe% 


ORK_DONE: 


R4,23$ If LBC then fatal error 
CLRBIT #XG_DS 


— — Dad a hd — dt a — a 4 4 4 8 — a a Ss 2 8 — — — — — — — — — — — — — — — 


BS ie 
my ire 
A50 aye? 
A50 38 
A20 0 
A20 1 
A g 
A 
A 4 V_FORK_PEND,=- Clear fork pendin 
‘ | 3 —— pie 
50 0167 CS 9A 1A = MOVZBL UCBS$B_XG PROTYPE(RS) RO : Get protocol type 
A2D 78 CASE RO, TYPE=B ,<- ; Case on protocol type 
As — ha 
A p 1 Wem : Fall thru on DDCMP 
03C0O 8F ae A § PUSHR #*M<R6,R7,R8B,R9> 3 Save registers 
52 00F4 D5 OF A 9 ; 5$: REMQUE @UCB$Q_XG.POST(RS) .R2 F Get next buffer to complete 
3 e u oun 
13 04 Ag 9 Mo 5 euee RPSB_TYPE(R2),S*#DYNSC_BUFIO ; If NEQ then not XMT buffer 
928 35 vt $ BSBW TRANSMIT_DONE H Complete the transmit 
4 3 + 9 J3 RO,25$ : If BC then error on buffer 
17 OA Ae 3 Ase y 10$: ance ꝑe. ree (RE) .S°SO TUBE NET 3; If EQL then RCV buffer 
8 HIME ite BY tyes Vk aoe 
0130 6 ’ . 4 ope 15$: Ay ue B_XG_XSTATE(RS) : If NEQ then transmitter going 
g A6 r38 CLAL R1 3; Set no status for start xmt 
25°86 F9 re 738 ay SI ART TRANSAIT : ae sry te start up a xmt 
3; Branc error 
CF 1 1A 799 17$: BRB 5$ 
0120 C5 %3 J 208: iste neta 3: If NEQ then transmitter going 
tf Be A b § CLRL K 3; Set no status for start xmt 
F234 0 1A7 BSBW START_TRANSMIT 3; Else try to start up a xmt 
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— - Fork proces SEP-1984 DRIVER. SRCIXGDRIVER.MAR; 1 
17 50 9 1A 4 BLBC RO,25$ 3 Branch BC error 
39 if C —38 228: MOVZWL $*#SS$_NORMAL,RO ; Set status 
CO BF OBA 18 4 : POPR #*M<R67R7,R8, 29> ; Restore registers 
5 1A F 2 RSB 3; Return 
0082 65 B6 IA 8 & 238: INCW UCBSW_ERRCNT(R5) ; Adjust count 
1A84 481 SETBIT #XMSV~ERR_FATAL,UCBSL_DEVDEPEND(RS) ; Set fatal error 
scr 0 1A89 481 BSBM KE_OSER : Tell owner 
F 1 1A8C 4 \¢ RW SHUTBOWN_LINE 3 Shutdown the Line 
- : ? ! ; shut down device 
03c0 of BA 1A 4 if 258: POPR #*A<R6,R7,RB,RI> 3 Restore reptesers 
9 E1 1A93 4 1 BSC #XMSV_ERR’TRIB,- : Assume trib shutdown 
03 44 A 1095 481 UCBSL ~DEVBEPEND (RS) , 28S 
0738 31 1098 4 18 BRW SHUTDOWN_CIRCUIT 
0660 1 —84 28$: BRW SHUTDOWN_LINE ; Br to shut down the device 
ran o85! 303: BUG_CHECK NOBUFPCKT,FATAL : Else fatal, error 
0094 31 1AA 9 408: BRW FORK_DONE_BISYNC 
1AAS 4824 
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JAA 4 $ a .SBTTL FORK_DONE_LAPB 

TAA 4 8 ; FORK_DONE_LAPB = Fork process for LAPB 

TAA 4 ; This routine does fork processing for LAPB. 

1AAd 4 ; INPUTS RS = UCB address 

VAAd 4834 ; IPL = FIPL 

JAAD 4836 ; OUTPUTS R5-RB are preserved 

—336 

AAS 4 3 FORK_DONE_LAPB: 

51 O0F4 0 +4 a ? 9 58: —3* @UCB$Q_XG_POST(RS),R1 ; Get next buffer to complete 
13 (OA oy 3 8 tg a Go oe TOPE CATE OND THES UF 28 3; If NEQ then not XMT buffer 
53 OC Al 8 1AB2 4844 MOVL XMTQ$L_IRP(R1) ,R3 ; Get IRP address 
50 1A Al 8 1AB6 44845 MOVW XMTQSW_MSGSIZE(R1) ,RO ; Get size of transfer 

50 0 1ABA 4 8 ASHL #16,R0,R0 3; Move to high word 

12 1ABE 484 BNEQ 0 : If NEQ then ok 
50 0054 8F 9 i849 wy , S$_CTRLERR,RO ; Set error 
50 01 BO 1AC7 4850 10S: MOVW S“#SS$_NORMAL ,RO ; Set normal return assume suc 
35 68 AS g E4 1ACA 4851 BBSC #XG_DS VCLEAN UCBSW_DEVSTS(R5) ,358 ; If BC then do not abort 
38 AS 9 8 1ACF 4 26 15$: MOVL RO, TRPSL_MEDIA(R3) ; Set status and size 
orc 30 53 BsBW TRANSMIT ~10_DONE : Complete the 1/0 
17 OA a) Pf 1a08 2 22 20$: are RP$B_TYPE(R1) ,S*#DYNSC_NET : If NEQ then not RCV buf 
0708 8F a ADE 4857 BITW § #<XG$M_BCC_ERR!XG$M_RES_BIT_CNT>,- ; If neq then no error 
FA a WE 
53 00DC DS OF 1AE6 4860 REMQUE Fi, 808 NS _ACVS CRS) AS : Get free 1/0 packet 
10 1D AEB 4861 BVS $ 3; If VS then none waiting 
52 51 00 AED 4 66 OVL R1, 3; Set up buffer for done 
73 42 3 E 1AFO 486 MOVAL RCV_Z2_HEADER(R2), (R2) ; Set address of data 
5 OC A i 1AF4 4864 MOVZWL RCV_W_MSGSIZ(R2),RO ; Get size of transfer 
o1¢) + ae ? 22 esau EINTSR_RCV10_LAPB : Complete the request 
0008 05 61 oF 1AFD 4 8 30$ INSQUE (R1),@UCBSQ_XG_ATTN+4(R5) : Queue buffer to await 1/0 
Al 11 1802 4868 BRB 5$ 3; Get next buffer to complete 
38 ef BO 1804 4 8 35$ MOVW #SS$_ABORT,RO : Else set abort status 
54 DO G 1B07 4 MOVL UCBSA_XG PRO_BUFFER(RS) .R4 ; Set protocol buffer address 
F488 1B80C 487 BSBW CLEAN_FORK_ERTRY 3; Clean outstanding on device 
50 1 — 1BOF 4 i 40$ MOVZWL S*#SSS$_NORMAL ,RO ; Set status 
ie ee 
1813 4875 ; - error come here 
50 0000 ¢5 pO 1813 4 id 45$: MOVL UCBSA_XG_PRO_BUFFER(RS) RO ; Get protocol buffer 
16 A 6 1818 487 INCB APBS$B_DE1 (RO) ; Incr error counter 
15 1818 4 4 BCC 8$ 3; If BC then carry not set 
16 a 97 1B1D 487 DECB Larese pe Lino) 3; Else set to max value 
O0E8 DS 6 OE 18 p 4 ? 48$: INSQUE (R1),@0CB$Q_XG_FREE+4(R5) ; Return the buff to free List 
183 4 ; DSBINT UCBS$B_DIPL(RS) : Disable interrupts 
FBD3 30 1B2C 4882 BSBW START_RECEIVE ; Start any receives 
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1B2F 4883 ENBINT : Enable interrupts 
FF70 31 3 BRW 5$ 3; Complete next rea 
i 3 2 8 50$: BUG_CHECK NOBUFPCKT,FATAL 3; fatal error 


04000" 


1 

1 

1 

1 

1 

1 

1 

51 OOF4 D5 roy 
Ret 

13 OAAT 91 1 
SA 12 1 

1 

1 

53 OC Al 0 1 
50 1A Al 1 
50 50 10 1 
9 7 

50 0054 8F B80 1 
Be: 

50 1 60 1 

09 68 AS F &4 (1 
38 43 0 Be 1 
012A 0 1 

gs 111 

50 g BO 1 

54 0000 C 0 1 
F4IE 0 1 

50. 01 . ¥ 

05 1 

1 

1 
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: a -SBTTL FORK_DONE_BISYNC = Fork routine for BISYNC mode 

¢ a FORK DONE _BISYNC = Fork routine for BISYNC mode 

489 This routine does the fork prerererag for BISYNC. Only XMT's will 

4 ae 3 come thru here. Rcv's are complete via the BISYNC timer routine 

2896 | 
4 38 Fork _DONE_BISYNC: 

4 8 5$: penaue @UCBS$Q_XG_POST(R5) ,R1 ; Get next buffer 

489 VS then none 

4 OReB XMTQSB_BUFTYP(R1) ,S*#DYNSC _BUFIO ; If NEQ then something wrong 

8 BNEQ 50$ 

8 ; This bit must be cleared to allow retransmits over the bisync protocol. 

4905 CLRBIT #XG_DS_V pris gycesu. DEVSTS(RS) 

49 $ VL XMTOSL_I ; Get the IRP odéreqs 

49 MOVZWL XATOSUT —A RO ; Get the mesgege 8 

4908 ASHL #16,R0,R0 : Shift size into ize word 

4909 BNEQ 0$ 

4910 MOVW sess. CTRLERR,RO ; Set error 

4911 BRB : Branch to complete ene 10 

2318 10$: MOVW S“#SS$_NORMA Set successful statu 

491 BBSC #XG_DS-V cLEAA quasi DEVSTS(RS), $0 0$ ; If BS then sheen outstanding 
4914 208: MOVL RO, TRPSL- “MED > Set status 

4915 BSBW TRANSMIT — —* AONE : Complete the request 

ret | BRB 5$ 3 Get next XMT to complete 

4917 30S: MOV #SS$_ABORT,R ; Set abort status 

4918 av UCBSA_X — BUFFER(RS) ,R4 : Get the protocol buffer 

4919 BSBW CLEAN_F — ENTRY 

4920 40$: MOVZWL S*#SSS_NORMAL ,RO 

8 1 RSB 

23 5 50$: BUG_CHECK NOBUFPCKT,FATAL 
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~SBTTL RECEIVE _DONE - Complete a receive buffer 


3** 
sRECEIVE DONE 
FUNCTIONAL DESCRIPTION: 


When the board receives a buffer this routine is called to complete it. First 
a call is made to “oe protocol to strip off the header and use the 
appropriate information. If a non-fatal error is detected then the error is 
recorded in the protocol and the buffer os returned to the free buffer pool, 
and NOT given to the user. If no error occurs and the buffer is a protocol 
control message then the buffer is returned to the free buffer pool. if this 
is a data message and a IRP is free the buffer is completed with the IRP, 
else it is put on a queue to await 1/0 completion. 


1 
: $ 
} 
1 
1 
} 
§ 
1 4 
: 5 
$ 
: 
ia in 
1 4g INPUTS: 4 = messoge buffer address 
! 7 R5 = UCB address 
1 45 OUTPUTS RO = Status 
' 8 R2,R3,R5 are preserved 
1 48 RECEIVE_DONE: ; Receive done 
C ge 1 9 PUSHR #*M<R2,R3,R5> 3 Save registers 
56 1 A 1 0 MOVZBL #DLKSC_RCVMSG,R6 ; Set that this is a RCV 
7 04 1 1 CLRL 3; Clear error bits 
0708 8F 63 1 § BITW #<XGSM_BCC_ERR!XGSM_RES_BIT_CNT>,- ; If EQL then no CRC error 
OE Ag 1 RCV_W_ERROR(R2) 
1 13 1891 4954 EQL 1 
50 ig A 3¢ 41893 4955 MOVZWL RCV_L_BACC+2(R2) ,RO : Else check for header or data 
50 4205 Ad 1897 49 6 SUBW2 UCBSWDEVBUFSIZ(R5) ,RO > error 
50 6 91 1898 49 CMPB #XGSC_HEADER,R ; If EQL then data crc error 
13° 189 9 8 BEQL 5 
57 ? 9 323 Base #OLKSM_HDRCRC,R7 3; Set header CRC error 
57 43 9 u 38 58: hy SELKOR_DATACAC A? : Set data CRC error 
0 —1 IBAA 368 108: BBC #XG$V_BUFOVR,- : If BC then no buffer overrun 
os ot A 1BAC 4964 RCV_W-ERROR(R2) ,15$ 
57 20 aS IBAF 4965 BISW  #OLRSA_RCVOVR,R? - Else set rcv overrun 
1686 88 SETBIT #XM$v_ERR LOSf UCBSL_DEVDEPEND(R5) 3; Set data lost error 
58 42 a DE 1887 4967 15$ MOVAL RCV_Z_HEADER(R2) ,RB ; Get buffer address 
5 D4 18BB 49 CLRL R ; Clear reg 
55 0009 2. 8 jee 8 —* ——— ; Set protocol buffer address 
3 1BC5 497 POPR #*A<R2,R3,R5> 3; Restore registers 
OC A2 89 1BC $376 MOVW RO, RCV_W_MSGSIZ(R2) 3: Set transfer size 
8 30 $307 ce ’ * Arĩcon. ẽ : If EQL then protl not active 
57 OA 83 1800 4975 BITW atl PRSTERR!- : If NEQ then fatal protocol 
18D 4976 KSM_HORERR> ,R7 3 error go to shutdown the 
J 12 1803 497 BNEQ $ 3 circui 
57 00CO 8F 83 18D £38 BITW ate STRTRCV!- : If NEQ then trib error 
“> 1BDA 497 vat DLKSM_MATRCV>,R7 3 go to shutdown the circuit 
14 57 be E 1035 438 BBC #OLKSV_TRNLK .R7,20$ : If BC don't turn Link 
1BEO 4982 BICW #XG_DS"M_XMTING.~ > Start transmitter 
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Line Device ae 
= Complete a receive buffer 


REMQUE 
BVS 
BRB 
INSQUE 
BSBW 
MOVZWL 
RSB 
INSQUE 
DSBINT 
BSBW 
ENBINT 
RSB 


SETBIT 


1% 


UCBSU DEYSTS(RS) 


pal TRANSMIT 
M<R2,R7> 


’ Ro 708" XMTCMP,R7,23$ 
NISH_XMT_IO 

at sama 

GYCBSO_XG_RCVS(RS) RS 

FINISH_RCV_IO 

(R2),  -Bucesa. XG_ATTN+4(R5) 

—E NORMAL ,RO 


G_FREE*4(R5) 


#XMSV_ERR_ FATAL ,- 
UCBSL_DEVDEPEND (RS) 


cb er t(r5) 
ug H x rs r 
RRess 


8 

XMS ERR START! = 
XMS TRIB> 
ucBsC OE UDEPEND (RS) 


ucbby, "9 trte(r5) 
uc xg strtir 
ERRSSS 


pape ANTRCV,R 


65$ 
#XMSV_ERR_ START, mat _DEVDEPEND 
*UCBSL~ ~DEVDEPEND( 


#XMSV"ERR-MAINT 
#SS$_BEVIRACT,RO 
(R2) @UCBSQ_XG_FREE+4(R5) 


AX/VMS Macro Vv04-00 
DRIVER.SR 
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REIX XGDRIVER.MAR; 1 


; Save the register 

; Set no status for start xmt 
; Start the tranmsit 

; Restore the register 


Branch on error 
f BC no ay~ 8 te complete 
Save receive buf 
Else branch fo Po post whe 1/0 
Restore receive buf 
BC then not a pba message 


Remov waiting rcv 1/0 request 
VS then no packet to complete 
If found then finish the 1/0 


Else, queue message buffer 
Poke the user 
Set — return 


Return the buff to free List 
Disable interrupts 

Start any receives 

Enable interrupts 


Set that a fatal error occurd 


; inc persitant error count 


Assume the trib error occurrd 
because a STRT was received 


; inc start rcv'd error count 


; If BC then true 


3; Else set maint msg rcv'd 
t protocol inactive 
4 the buff to > List 
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Mish receive 1/0 proce S-SEP=1986 00:20:11 LORIVER.SREIKGDRIVER.maa:1 29° { 
. -SBTTL FINISH_RCV_I0 = Finish receive 1/0 processing 
FINISH _RCV_IO = Finish receive 1/0 processing 
FUNCTIONAL DESCRIPTION: 


This routine completes a receive operation that has been matched with a 


; message block. After the receive has been completed the message free list is 


filled and a receive is started if needed. 


; INPUTS: 


R2 = gersage buffer address 

= 0 if I/0 is being aborted 
7 = 1/0 packet address 
R5 = UCB address 


IPL = FIPL 


For FINISH_RCV_IO_LAPB (R2) = address of data 
RO = transfer size of message 


OUTPUTS: 


RS = UCB address 
The request is completed via 1/0 post. 


INISH_RCV_I1O: 3: Finish receive 1/0 request 
MOVAL RCV_T_DATA(R2),(R2) ; Insert address of the data 
MOVZWL RCVWIMSGSIZ(R2) ,RO : Get size of transfer 

INISH_RCV_IO_LAPB: 

INISH_RCV_I0_BISYNC: 

CLRL R1 3; Assume error 
MOVL R2, IRPSL_SVAPTE(R3) 3: Save block address 
MOVL  IRPSL_MEDIA(R3) ,4(R2) ; Insert saved user VA 
ADDW UCBSW"DEVBUFSIZ(R5),- ; Adjust unit quota 
UCBSW_XG_QUOTA(RS5) 
CMPW RO, IRP$W_BCNT (RS) : Request larger than actual? 
BLEQU : Br if no 
MOVZWL IRPSW —— RO 3; Set size to min. of two sizes 
208:  MOoVW IRPS$W_BCNT(R3) : Set size to transfer 
ASHL  #16,R0,RO : Set up status 
BNEQ ; Br if success 
now #SS$_CTRLERR,RO ; Set data path error 
5$: MOVW S*#SS$_NORMAL ,RO : Set success : 
0$:  MOVL RO, IRPSL_MEDIA(R3) ; Set status and size 


; PSI expects this in all buffs 
; Post the 1/0 request 

; Return rcv buffer to free q 

; and start next KCY 


MOVB #@CYNSC BUF IO, IRP$B_TYPE(R2) 
BS 10_D 
pee FICLFREELIST 


; Complete a transfer 1/0 operation 
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XGDRIVER = VAX/VMS DMF32 Sync Line Device Driver 16-SEP-1984 00:43:03 VAX/VMS Macro v04-00 Page 11 
yon 008 FINTSH REV 10'= Finish recetve 1/0 proce ‘SeSEPcOR4 BOssOrsT LOMIVER.caeaecbotuce.man:1 P29 138, 
1¢ 91 TRANSMIT I0_DONE: 
07 +€1 1C¢ 3 3 6ec~ #XMTQSV_INTERNAL,- : If BC then not an “Interal"’ 
OD 1F Al jt XMTQ$B_FLAG(R1) , £0_DONE ; IRP, else must dealloc the 
1¢9 4 : buffer used to transmit 
8 1C 95 PUSHR #*M<R3,R5> 3: Save registers 
38 1 p 1CA 38 MOVL 3 Set to dealloc the buffer 
0000 000° GF 1CA 9 JSB G*COMSDRYDEALMEM : Deall the buffer 
8 BA 164 a8 POPR #*M<R3,R5> ; Restore registers 
1CAB 99 I0_DONE: ; Comp a transfer 1/0 operation 
44 4 DO 1CAB 5100 MOVL UCBSL_DEVDEPEND(R5) ,- ; Set other info 
3C A 170 : 1 IRPSL_MEDIA+4(R3) 
ite } § ; Clear bit because it has been reported to the user 
1¢B 105 CLRBIT #XMS$V_STS_ORUN,UCBSL_DEVDEPEND(RS) 
07 +€1 1CB 1 § BBC #IRPS? biAGe - ; Br if no diagnostic buffer 
14 2A A3 1¢B7 51 IRPSW_STS(R3) ,20$ 
50 4¢€ 83 08 4 1CBA 51 8 ADDL3 #8,a@I1RPS$L DIAGBUF (R3) ,RO 3; Addr buffer past start time 
80 00000000'GF 7D 1CBF 51 MOVO G*EXESGQ SYSTIME,(RO)+ : Insert stop time 
80 00 352 6 46 19 nove tty ERRCNT(RS) , cad) · : Insert error counter 
00000000 ' GF 3 3S 1g 20$: JMP G*COMSPOST 3; Post the 1/0 


XGDRIVER = VAX/VMS DMF3 i Devi 16- 4 AX/VMS Macro v04-00 P 11 
—W FINDS REV One Finis ng Device Briver, ~$eE= 138 B8:S5:9F YONVES Bac se vet vce.mans1 '2% 128 
1004 5115 
1e0e 118 2 -SBTTL TRANSMIT_DONE = Transmit completion routine 
1cD4 ; TRANSMIT_DONE = Transmit completion routine 
1cD4 FUNCTIONAL DESCRIPTION: 
1004 51 g : This r9 uting is called when a transmit buffer needs completion. If the 
1004 51 : srancatt bur fer 5 was a protocol control buffer then * 
1004 51 : 3 happens with re buffer. In fact it should be part of a gqraens ty allocated 
1004 51 ; structure such as the UCB. If the trangn t woe a data buffer, the routine 
1004 51 33 3; calls the b preseses te to 7reet wren the buffer. i? gre preteces ne fel? Nf es the 
1004 51 3 driver th s to send to 1/0 completion, the driver pulls these 
IUz gi 3; buffers off the —38 queue and sends them off to complete. via COMSPOST. 
1004 5130 INPUTS: 
1004 5131 ; R2 = Address of buffer to cenptese 
1004 51 gi $ = If error then contains the error from the device 
IUz = UCB address 
1Cd4 5: IPL = FIPL 
1cp4 iz : OUTPUTS: 
1€D4 5139 : ®5 = UCB address 
ae 
1CD4 ae TRANSMIT_DONE: 
58 52 00 1CD& 514 AOVL R2,R8 : Put buffer eddr into R8& 
ef BB 1CD7 5144 PUSHR #*M< Rok : Save registe 
55 0000 DO 1¢D9 5145 MOVL UCBSA ic, “eho. BUFFER(RS) RS : Set pro scot butter address 
28 2 9A I1CDE 198 MOVZBL #D LKSC_x MSG,R6 3; Set up to put on RTOQ if the 
9A cel 14 ROVZBL me —8B R7 : msg needs to be timed out 
€317° 3 16 128 BSBW DOCMP 3; Branch to protocol 
zt BA 1CE 150 POPR 24 R3,R5> 3; Restore register 
0257 OA €1 1CEB 131 BBC #OLK$V xATCRE, R7,30$ : If BC then no XAT's to compl 
Bs 10 1CEF 51 § BSBB FINISH- I 3: Else complete the XMT 
50 1 3 1CF1 5153 308: MOVZWL S“#SS$_ ~NORAAL RO : Set normal return 
— 
1CF 1 § FINISH_XMT_I0: 
03CO 8F Be 1CF 1 PUSHR greens R7,R8B.R : Save registers 
56 0000 C5 1CF 1 8 MOVL air se- KG_PRO- BUPFER(RSD, R6 : Get protocol buffer address 
58 2 86 OF 1CF 159 5$: REMQUE “CMPQ(RS), 3 Get the next entry on queue 
4 1D 5 160 BVS : If VS then branch to finish 
33 oc 3 1D 19) MOVL —Rag. * (RB) .R * 3; Get IRP a sociated with XMT 
0 WA 1008 51 : MOVZWL XMTQSW"MSGSIZE(RB) RO : Get transfer 
$0 38 16 A 1 : 19? pveue 8 A $c sc READ eR RO : gubtrect ou out the protocol hdr 
12 1D ; 188 BNEQ : Br ifdste ta ee 
50 0054 — zuů —* #SS$_CTRLERR,RO ; Set device error 
5 1 BO Dic 51 198: MOV 4 te NORM. 3 Assume success 
38 A D 1D1F 169 15$: MOVL RO,IRPSL_ AES TACRS) 
5 4 106 1 MOVL RB,R1 : Set XMTQ buff address 
FF 1026 517 BSBu TRANSMIT_10_DONE : Complete the 10 
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3 Get next to complete 
3; Restore registers 
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raat TIMER = CTS ond Device Ciner wakes veut \SeSEP-19RG oe eeSechotuce mans: 29° 138, 


-SBTTL TIMER = CTS and Device timer wakeup routines 


icTs TIMER = CTS wakeup routine 
This routine is called to check if CTS has come high 


oe tr) 


1D 176 
1D 1 
1D 1 B ie 
1D 1 
RE 
10 1 
1D 1 g Inputs: 
1 ! : RS = Address of CTS TQE entry in UCB 
1D 1 
1D 1 * i TS_TIMER: 
ore ef 88 1D 1 3 PUSHR #*M<RO,R1,R2,R3,R4,R5,R6,R7,RB,RI> ; Save the registers 
55 00000094 8F C2 1034 51 UBL UCBSL XG Tag R5 ; Point to start of UCB 
1D 190 DSBINT UCBSB_FIPC(RSS ; ane 3 access to unit 
68 AS ag00 Bf AA 1D4 191 1cw2 0S _A_ FU STOE AUN, uceey +14 TS(R5) ; Set timer not qd 
22 68 ¢ 3 1D4 13 BC DS-V_ ~INI TED Ucesu_ EvSTS 5) ,20$ If BC then device not active 
0120 — 1089 132 ine eg XSTATE(RS) $ if Eoi then idle 
17 0120 t 3 1033 195 BLBS uCBS$B XSTATE(RS) ,20$ ; If set then XMT'r is ‘‘ON’’ 
0120 C5 7) 1038 136 SNES pxese ~pRPCTS ,UCBSB_x G_ XSTATE(RS)- ct + A not drop 
e 
0120 ¢ 94 1D5F 5198 CLRB Yi 208 FE _ZSTATE CRS) ; Set up to see if we can 
11 1033 300 $3 BRB 10$ : transmit and try to start up 
1065 te IF DF CTS$$$ 
1093 8 movzbl ucb$b_cts_last(r5), 200 3; set slot to incr 
106 8 incb ucb$b_cts_buf(r5)Cr0 
1093 be -ENDC 3; DF CTS$$$ end 
0120 65 04 90 34 8 MOVB #XGSC_SWFCTS,UCBSB_XG_XSTATE(RS) ; Short WCTS state 
51 4 1D6A 10$: CLRL RY : Set no status for start xmt 
0086 0 1D6C 8 BSBW DEVTIMER_ALT 2 esters transmit 
1DGE 20$: ENBINT set IPL 
O3FF 8F BA 1D 10 POPR #*M<RO,R1,R2,R3,R4,R5,R6,R7,R8, abot’ ; "Restore registers 
5 107 11 RSB 
er ashe 
1077 14 i++ 
1077 33 3; DEVTIMER = Device wakeup routine 
33 3 Functional Description: 
1077 18: ; This routine is gelled when the protocol timer ever serend when the 
1077 3 3: protocol ieee t che to start on Se trensaits the protocol may 
1077 : neve queued as a result of the time reg’ ng off. It also gherks for CTS coming 
107? gi 3; high as a result of Sets being asserte 
1077 4 : INPUTS: 
1077 53 R1 = Error status from protocol specific timer routine 
1077 § : RS = Address of the UCB 
1D77 ; 
44 3 OUTPUTS: ; 
107 3 RO = Status of Line is LBS then Line is up 
1077 ; then Line is down 
1077 : Ri = Return error status from driver 
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Device — 16-SEP-1984 00:43: AX/VMS Macro Vv04-00 Page 119 
er wakeup rout — —83 DRIVER. SRCIJXGDRIVER.MAR; 1 . (66) 
3 ; On error the Line is shut down 
, -ENABL LSB 
§ DEVTIMER 
; First check to see if the timer on the xmt inprogress has expired 
3; If it has then we will increment the error counter for the device 
r 3 and shutdown the board. 
4 UCBSB_DIPL (RS) 
4 CBSL_XG_XMTEND(RS) ,R2 3; If EQL no xmt inporgress 
A a ieiiacite 3; Get time 
BOR 3: If LEQ then no expired 
CBSW_ERRCNT(RS) : Incr the error counter 
0$ 3; Go to shut down the device 
2$: 
#XMSV_ERR_FATAL YCES, .DEVDEPEND (RS) 30$ ; If BS then fatal err 
#OLKSO_PRSTERR,R1, 0$ 3 # BS then psrt err shut down 
3 the device 
PESOS NE _RSTATE CRS) : If NEQ then transmitter going 


wa 
Cad 
ee 


10$: 


= 
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DEVTIMER : 


If the protocol timer has expired then clear the XMTING flag so that 

the control message which must be sent can be. This is true when the 

device is running half duplex. If the message with the select flag is dropped 
then we must be sure that we can send anouthe message with a select flag. 


#OLKSV_TMREXPD,R1,5$ 
#XG_DS_V_XMTING ,UCBSW_DEVSTS(RS) 
START_TRANSMIT ; Else try to start a transmit 


: If LBC then fatal error 


RO,30$ 
#DLKSM_TMREXPD,R1 : Clear timer expired 


#SS$_NORMAL ,RO 3; Assume device is ok. 
UCBSB_XG_XSTATE(RS) .15$ : if LBC then XMTer is on 
#XG_DS_V<CTSTQE_RUN,UCB$W_DEVSTS(R »,15$ ; Br if CTS timer is 


3 runnin 
UCBSB_DIPL(RS) t ptaable facere 
UCBSt CRB(RS) RI : Get the CRB address 
acre C_INTD+VEC$L_IDB(R1).R4 set the CSR 
#XGSC_MODEM,XGSC_MISC_REG(R4) ; Set to get modem IR 
#XGSMICTS .XG6SC_IND_ADDR(R4) : Has CTS been detected 
: Enable interrupts 
0$ : If EQL then not Gerected 
#XGSC_XMTING,- : Set state to XMTing 
UCB$B-XG_XSTATE(RS) 
START_TRANSMIT ; Start the transmit 
RO, 308 : 1f LBC then problem 
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XGDRIVER = VAX/ DMF32 Sync Line Device Ort er 16-SEP-1 'AX/VMS o V04-00 P 1 
YO 000 TIMER ETS and Device Cinor Wokeue Keut S-Sep-19b6 G0:50:17 YORTVER.caesecbetves mars? / 28° 129, 
05 15$: RSB 
07 €0 208: BBS #XMSV_CHR_TRIB,- ; If BS then trib mode don't 
HEB g nen ienaar 
1 i§ 228: BEGL pi My J 3 repsonded in a reasonable tim 
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1DF 
10F 
10F 
1DF 
1E 94 
1€E 32 
18 338 
1E 4 258: SETBIT #XMSV_STS_DISC,UCBSL_DEVDEPEND(R5) ; Set modem disconnect sts 
iE 3 IF 
1E 1 incw ale oh x9 agise(es : inc disconect modem err count 
1€ § -ENDC =;DF ERRSS 
183 88 
1E 5 : TFB/GFB blocks ere deallocated on shutdown. Make sure RO is 
158 — clear so that the timer routine does not try to access them. 
1E0 8 S0s: SETBIT #XMSV_ERR PATA UCBSL_DEVDEPEND(RS) ; Set fatal error 
02g? 30 161 BSBW SHUTDOWN_CIN : Shut down the device 

© 8S tei? 3313 ie 
1€1 \¢ -DSABL LSB 
1€1 1 
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64 4000 er 


; : ites Second to see if any checest rs were — y 


: : the follow 
$ ; routine may retrun. 
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-SEP-1 
-SBTTL BISYNC_TIMER = Bisync timer 
; BISYNC TIMER = Bisync mode timer routine 


This is the timer routine for BISYNC gyoret can, Each * the clock ticks, 
calls this —— to check first if a xX $ wait ng, for € cts te 4° ome 
Ver. 
: Hina cot an were received then it will call the framming ~ hi. * 
ind out what fe do y th the character. That is how the character gets put 
into the actus receive buffer that will get posted to the user. 
ng is a diagram of the possible status the framing 


DRIVER. sre 5 XGDRIVER.MAR; 1 


; The following indicates bits returned in RO from the framming routine: 


IT 0: BCHAR = Buffer the character 
IT 1: BCHRP = Buffer the character in the prev tous position 
IT 2: CMPBF = Complete the receive to the us 
1” _CAPEF"T”BCARP™”"t~BCRAR™ 
146 J , @ ! Buffer the character in next position 
Pen — 1 lg9nore the character 
. © ! 1 ! 9Q ' Illegal state 
' @ ! 1 ! 1 ' Buffer the character in previous position 
. 4 io 7 = ! Buffer the character in the next postion and 
coe . @ ! 1 ! Ignore the character and complete the read 
. § _ a ' Illegal state 
1 ;. 4 .* 3 Buffer character in previous position and co 
INPUTS 
RS = TQE address 
IPL = timer IPL 
OUTPUTS 
ALL regs preserved. 
IRP may be completed VIA IOPOST 
RISYNC.. Tyee, 
PUSHR #*M<R2,R3,R4,R5,R6,R7,R8B,R9> 
VL TQESL_FR4(RSS RG : Set R4 with protocol buffer addres 
VL TQESL_FR3(R5) ,R5 ; Set_R5 with UCB address 
TSTB UCBSB-XG_XSTATE(RS) : If EQL XMTer is idle 
BEQL CHECK-RCO 
BRW CHECK_XMT : Else go see what the XMTr is 
3; waiting for 
CHECK_ acy: 
PUSHL 3; Save R4 addr of protocol buffer 
MOVL Uces, CRB(RS) :; Get CRB addre 
acRB C INTD® ets. IDB(R1),.R4 =: Get device 


MOVL CR 
Dseint UCB$B Sync to DIPL to read device regs 


#XGSn_ FRROR Ibic -RCV_CSR(R4) 
BEQL 5$ 
ENBINT 
POPL R4 


a 
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3 A407 
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AX/VMS DMF32 Sync Line Device Driver 16-SEP-1 AX/VMS Macro v04-00 Page 12 xt 
NC_TIMER - Bisynct ts timer ~$ee 1382 88: $3; 9 DRIVER.S REX XGDRIVER.MAR; 1 . (67) vi 
1E€48 7 BRB RCV_ERROR 
1E4 og 5$: ENBINT * 
74 BBC #XG_DS_V_RCV_DONEP yrBsy DEVSTS(R5), * BC buff not queued 
jt 75 MOVZWL UCBSW_RG-RCV-INIT(R5) ,R2 ; Get ount of # of bytes to input 
1E5SA 4 DSBINT UCBS$B_DIPL (RS) ke c “to DIPL to read device regs 
—1661 7? OVW ougee PRI_RCV1,XGSC_MISC _REG(R4)’; et By: count reg to read 
1£65 £8 MOVZWL Xs C_IND_ADDR(R4) ,R3 F he count 
1E69 7 EQL $ : g ath no more chars to rcv 
1E68 80 ENBINT 3; Reset interrupts 
1ESE 1 OPL RG 3 arecere protocol buffer address 
1E § INSV #0,415,42,R3 3; Clear high order bits 
1678 SUBW2 R3,R2 3; Get —*7* of ener input since las 
1E7 4 BEQL 2 3: If eql then non 
1E7 85 MOVL CBSL_XG_RCV_INPR(RS) ,R8 ; Get buffer to eave rcv data to 
1€8 § BEQL 3; If EQL then buffer conptote 
1€8 MOVAL RCV.Z 266 R8 3: Get the otart of the dat 
1€8 8 MOVZWL ugesu x INPR_INDX(R5),R9 : Get the index ba the eee 
1€8B 9 MOVW CBSu- Ful IRIT(RS) 3; Update saved c 
1E90 90 MOVL BIg yn NCSA “hen 6 UPFER(RG) .R6 3; Get address of “buf fer given to dev 
1E94 91 MOVAL RCV_Z_H HERD per RTRS) R6 ; Get address of data 
1£98 96 MOVZWL BISYNCSW y INDEX (R4) ,R? Get the index into that buffer 
1E9C 2 9 CLRBIT #BISY SYNCSO RCW COMPLETE, *BISYNCSW_ érATUS(Ra) 
SS Saal sere 
1EA3 96 10$: POPL RG 
44 3 208: BRu TIMER_END 
1EA9 99 30S: ENBINT : Reset interrupts 
1EAC 5400 POPL RS ; Restore protocol buffer address 
1EAr 2783 BRW TIMER_END_CHKCMP 
1€8 2108 RCV_ERROR: 
1€B8 404 SETBIT #XM$V_STS_ORUN,UCBSL_DEVDEPEND(R5) 
1€B 405 REMQUE @UCB$G_XxG_ “RCVS(RS) ,R3 : If there is an rcv posted 
1EBC rt VS 10$ 3: complete it in error 
Hid 40 MOVZWL #SSS$_ABORT,IRPSL_MEDIA(R3) 
1EC $08 PUSHL 
IEE? 8216 POPE RAT NE 
1ECA ai} 10$:  BRW TIMER_END_CHKCMP_ALT 
1ECD 413 CHECK_NEXT: 
1ECD 5414 MOVZBL (R6)CR7J,R1 3; Get next char 
1ED1 5415 INCW 7 : Incr the index 
1ED3 41$ MOVAL UCBS$Q_XG_STATE_INFO(RS),RO 3; Pass address of state info 
TED 41 JSB @UCBSA_XG_FRAME_ADDR(R5S : Branch to the framing routine 
1EDC {18 ASSUME XGSV_BUFFER_CHAR EQ 0 
1EDC 5420 ASSUME XG$V"BUFFER-IN_ PREV J EQ 1 
oe r 1 ASSUME —28* “COMPLETE_READ EQ 
1EDC 54 i CASE RO, TYPE=B,< : Case according to result in RO 
1EDC 54246 BCHAR RNPOS, - : partes char in next position 
1EDC 5425 PEN CRA 3 iprere character 
1EDC 54 § IL LEGAL : IClegal state 
1EDC 54 BCHA A : Buffer char in prev position 
1EDC 5428 BCHAR™ _NPOS_CMP,- : Buffer char in nxt pos and cmp 
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Bisync ¢t -SEP-1984 DRIVER. SRCIXGDRIVER.MAR; 1 (67) 
IGN CHAR. CMP,- ; prere cher — complete read 
ILLEGA ; [legal s 
BCHAR ABbOS _CMP> : Buffer B aay in prev pos and cmp re 
ILLEGAL: BUG_CHECK NOBUF PCKT, FATAL 


For the following routines please remember: 


; Ri = Character to buffer 

3 R4 = Protocol buffer address 

3 RS = UCB address 

: R6 = Address of rcv buffer given to board 

3 R? = Index into above buffer 

3 R8 = Address of rcv buffer which will be completed to the user 
3 R9 = Index into above buffer 


BCHAR_NPOS: 
MOVB 


R1,(R8)CR9J : Mov byte into position 
INCW Ro 3; Incr the index 
3; Fall thru to do next char 

IGN_CHAR: 

SOBGTR R2,CHECK_NEXT 3; Branch to check next char 

BRB TIMER_END_UPD : If out of chars go to timer end 
BCHAR_PPOS: 

SUBL3 #1,R9,RO 3; Set index to previous position 

MOVE = R1, (RB) CROJ : Buffer the charac 

SOBGTR R2,CHECK_NEXT ; Branch to check sy next char 

BRB TIMER_ENB_UPD :; If out of chars go to timer end 
BCHAR_NPOS CMP: 

Movs R1,(R8) CRI : Buffer char in position 

INCW R9 3; Incr the index 

DECW R2 3; Decr in count 

; Fall thru to jump to complete 

IGN_CHAR_CMP: 

BRB TIMER_END_COMP 
BCHAR_PPOS_CMP: 

50663 #1,R9 Ro : Set the index to the previous pos 

MOVB R1, (RB) ROJ : Buffer char 

DECW R2 ; Decr char cou 


; Fall thru to — 2 the message 
TIMER_END_ COMP: 
SETBIT #BISYNCSV_RCV_COMPLETE -BISYNCSW STATUS (R4) i Set that the rcv is cmp 


B58W STOP_RCV_BISYAC 3 Stop the receive 

REROUE : cB$a_ XG. RCVS(R5),R3 : Get an RP to to “complete the RCV 
MOVAL 2 v aon HEADER(R2) , (R2) : Set address ry the data 

MOVL 3; Set address of buffer 

BSBW FINISH RCV_I rolsvuc 3; Post Rev 

DSBINT B_BIPLTR 

BSBW yee T-RECEIVE TRISYNC 3; Start next receive 

ENBINT 

BRB 208 


<x 


D 12 


RGDR IVER Pda Se Syne Line Device Driver — e882 —833 AVX Macro V04-00 Page 124 


PUPVIVIV IV IVI IVIVIVLIVIUIVIVIUIUIVIUSIUSIUSUSIUSIUSVSVUSIUSUIVSUSVSUSUSUSISUSUSISIOSTSVSIOSIOSISIOSIOSIOSIOSIOSIOIOSIOSIOSIOSIUIOUIS «= 


PUP PVPV PUI IV IVPVDVPV IUPUI UPUPUPUIUIUSU PUSS TSTSIITITTIT E Be PEP PPLE EE 


FF PWN AAAI AA IRIPUPINONIPUNIIIN 2 SS 


$ 
_TIM sync timer SEP- DRIVER.SRCIXGDRIVER.MAR; 1 (67) 
OC A 59 0 48 108: MOVW RO, RCV_W_MSGSIZ(R2) ; Set msg size 
0008 % 62 8 ; $ INSQUE (R2),@OCBSQ_XG_ATTN¢4(R5) ; insert on waiting for 10 List 
1 5 ; If the device is running in half duplex mode, check to see if a transmit can 
! 39 ; be send after we receive a message. 
OA 44 A5 02 €E1 1 $3 208: BBC #XMSV_CHR_HDPLX,UCBSL_DEVDEPEND(RS),30$ ; If BC not in half duplex 
i it 6 3433 CLRBIT #XG_DS_V_XMTING ,UCBSW_DEVSTS(R5) ; Set ok to transmit 
ED49 rn Dd 95 BSBW START_TRANSMIT ; try to send a message 
OE 11 6 38 30$: BRB TIMER_END 
¢ 98 TIMER_END_UPD: 

OOF es cS 653 = =«80 6 99 mOvw R3,UCBSW_XG_RCV_INIT(RS) ; Yodete # of chars left to input in rcv bu 
00FO C5) 32 80 6 0 MOVW R9,UCBSW_XG_RCV_INPR_INDX(R5) ; Update index of buffer to be given t 
0c 57 50 1 MOVW R7 ,BISYNCSW_RCV_INDER(R4) ; Update index of buffer given to device 

£0 08 TIMER_END: 
O3FC 8F BA 7 04 POPR #*M<R2,R3,R4,R5,R6,R7,RE,RI> 
05 a 8 RSB 
75 09 TIMER_END_ CHKCMP: 
F6 OE AS 00 €E0 75 08 #BISYNCSV_RCV_COMPLETE ,BISYNCSW_STATUS(R4),TIMER_END ; If BS ignore 
7A 09 TIMER_END_CHKCMP_ALT: 
0osF 30 7A BSBW STOP_RCV_BISYNC : Stop receiver 
52. DS 7D TSTL R 
08 13 F BEQL 
00E8 3 b¢ of 1 INSQUE CBSQ_XG_FREE+4(R5) ; Return buffer to free List 


(R2) ,aU 
INCW BISYNC$W_DROP_RCV(R4) ; Incr the number of droppped msgs 
10$: DSBINT UCBSB_DIPL(RSY 
i i START_RECEIVE_BISYNC ; Start the receiver 


: If the device is running in half duplex mode, check to see if a transmit can 
3; be send after we receive a message. 


BBC #XMSV_CHR_HDPLX,UCBSL_DEVDEPEND(R5S),20$ ; If BC not in half duplex 
CLRBIT #XG_DS_V_RMTING,UCBSW_DEVSTS(R5) > Set ok to transmit 
yt 


F703 30 


OA 44 A5 02 €1 


— — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — —— 
à— — — ee — — — — — — — — — — — — — — ee 


2—————⏑3— ⏑ ⏑⏑⏑⏑—2—————— 


RO ODNA NESW o — ⏑ o ⏑ 

o 

= 

m 

o- 

x 
3 

Be 

= 

— 
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51 4 
ED04 36 BSBW START_TRANSMIT ; try to send a message 
c9 11 208: BRB TIMER_END 
? 
of 0120 3 33 7 UCBSB_XG_XSTATE(RS),10$ ; IF LBS then XMTer is running 
29 68 AS ee C BBS #XG_0S_V-CTSTQE_RUN,UCBSW_DEVSTS(R5),10$ ; If BS then CTS TQE runnin 
1 DSBINT UCBSB_BIPL(RS) z Sync to device IPL to test for CTS 
1 4A5 OD 8 MOVL atte CRB(R5) ,R1 :; Get CRB ADDRESS 
1 Cc BI D f MOVL pi C_INTD+VECSL_1DB(R1).R1 ; Get CSR address 
04 Al 04 8B MOVW  § #XGSC_MODEM,XGSC_MISC_REG(R1) =: Set to get modem R 
10 8B , BiTy #XGSM~CTS,.XGSC_IRD_ADDR(R1) : If EQL then CTS is high 
10 38 8 BEQL 208 
0120 C5 9 8 vB #XGSC_XMTING, UCBSB_XG_XSTATE(RS) ; Set that device is XMTing 
& PUSHL 
ECD2 4 
7 
A 
D 


ODWIWS 
~N 


4 BE 
FE 9 3 Check for receive chars 
0121 C€ 


CHECK_RCV 
UCBSB-XG_WFCTS_SEC(RS) : 


oo 
OS Of 
ow 
m 
o£ 
wo 


BSBW pant, PRAMERET ; Start up the transmit 
f GTR then there is time 
| 
| 
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BGTR 10$ 3; to wait for CTS 


—B —W 


7 14 


Else set that a modem dsiconnect occured and then abort the transmits 


, SETBIT 473. $T$_DISC,UCBSL_DEVDEPEND(R5) 
30S: REMQUE 9 SYRCSQ-XMTO(R4) AT ; Get next xmt off queue 


VS 3; If VS then no more 

cee XMTQSB_BUFTYP(R1) ,S*#DYNSC_BUFIO 

MOVL XMTQSL_IRP(R1) 3 get the IRP address 

MOVZWL #SS$_ABORT ines ~MEDIACR3) : Set abort status 

BSBW RANSMIT_10_D 

BRB bs : Get next transmit IRP 
40$: CLRB UCBSB_XG_XSTATE(RS) 

BRW CHECK_RCO ; Branch to check receive 
50$: BUG_CHECK NOBUFPCKT, FATAL 


IF DF BISYNCS$$ 


; The following is a test framing routine to be included when using the 
; driver to test bisync mode in a non-bisync environment. 
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bisync_franing. routine: 
pushl i A 
r 


cmpl ip (r2) 
bgtr 
este 6 a r0 


— 
o 
wn 

0 
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-ENDC ;DF BISYNCSS$S 
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-SBTTL STOP_RECEIVE_BISYNC = Stop the BISYNC mode receiver 
STOP_RECEIVE_BISYNC = Stop the BISYNC mode receiver 


This routine stops the current RCV in progress and resets the state of 
the receiver. 


INPUTS 
R4 = Address of protocol buffer 
RS = Address of the UCB 


OUTPUTS 
RS are preserved 
= Address of buffer to post 


DWOOO 000000000 000000 00 0000000000 ‘wus 
Hote Se Se Se Ge Ge Se Ge Se Ge Ge Se Se Se Se 
a + 


bo al © al * al? al al al al al al al ah Ab Ab AD AL A AD AL AD AD AD AL AD AD AD AD AD AD AD AD ADT AL 
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p TOP_RCV_BISYNC: 
14046 7D fovea BISYNCS$Q_INIT_STATE_INFO(R4),- ; Reset state information 
015¢ C5 0 UCB$Q_XG-STATE_INFOTRS) 
51 $e AS 00 20 VL ucest CRB(RS) RI : Get CRB address 
51 C 61 dO OVL acrest INTD+VECSL_ IDB(R1),R1 : —* CSR address 
DSBINT UCB$B_BIPL(RS) : Sync to device IPL 
61 01 0 1CW2 #XGSM_ENABLE ,XG$C_RCV_CSR(R1) ; 2 the receiver 
0 0 ENBINT Lower IPL 
9 CLRBIT S_V_RCV DONEP ucesw DevsTS(RS) : Clea ar that the rcver is busy 
SETBIT — V_rcv_c TE gISYNC SY ST aTisines’ Set that the rcv is com 
52 OOEC C5 0 0 VL -UCBS L x6 Rev "INPR dR ; Get receive butter address 
9066 63 D4 20 0 CLRL uC G-RCV_INP : Clear buffer address from inpr 
OOFO cS) «=6B4 e203 0 CLRW Mati xe> RCV_IN NPR POX CRS) : Clear the indices 
OC AS 64 03 0 CLRW BISYNCSW_ RCV ~IND NDER(R4) 
05 38 ; 9 RSB 
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r ! * ~SBTTL REGDUMP - Error log and diagnostics register dump 
4 ; REGDUMP -Diagnostics register dump routine 
4 1 : Functional description: 
4 1 : This routing is used to return the DMF-32 diagnostics buffer on error 
"4 3; or diagnostic Q10 function. 
4 : INPUTS: 
4 ; RO = A DDRES Ff TH HE BUFFER 
ri ¢ 3 Sores ESS OF THE UNIT 
4 > OUTPUTS: 
25 8659 | 
4 6 8 3 RO,R1 ARE USED 
2 ? i 3 RS = UCB ADDRESS OF THE UNIT 
45 5631 REGDUMP: 
80 03 9A 204 6 § MOVZBL #3, —8 Insert number of returned long words 
E1 204 6 BBC #XMSV_STS_ACTIVE,- ; BR if not active 
OC 44 A 047 6 4 UCBSL~DEVDEPEND(R5) ,20$ 
046A 56 ASSUME UCBSW_XG_XMTCSR EQ UCBSW_XG_RCVCSR+ 
O4A 56 ASSUME UCBSW_ XG_RCVERR EQ UCBSW_ XG_ XMTCSR+ 
04A 56 8 ASSUME UCBSW_ XG_ “XMTERR EQ UCBSW_ XG-RCVERR+ 
Ree 383 ASSUME UCB$W~XG_DSC EQ UCBSW_XG_XMTERR+2 
80 313 CS 7D 204A 5641 MOVQ UCBSW_XG_RCVCSR(RS) , (RO)+ 
80 012A cs 3¢ uF 8 —8 tic. — Pen 
3 u 
$6 70 644 208: CLRQ (RO)+ ; Return no errors 
60 D4 205 645 CLRL (RO) $ 
05 205A 8 308: RSB 
05B 564 


cs 
51 0090 ¢ 
61 


D 
J 
54 i dO 
51 61 0 

07 #1 
1C Al 44 45 00 
FS 
00000000'GF 16 
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-SBTTL Poke user process on attention condition 


$ avaliable or the unit is shutdown. 
s and send a message to the assoc. mailbox. 


POKE USER 


; Sync to Fork 


Assume failure 
Get AST Listhead 


If so, branch 

Indicate success 

Copy List head address 
Address a block 

If EQL then done 
Change param 


Deliver AST'S 
Set status 
Enable interrupts 


zoe 
: POKE_USER = Poke user process on attention condition 
4 i FUNCTIONAL DESCRIPTION: 
§ : This routine is used when data i 
? : The action is to declare the ast 
: INPUTS: 
: R4 = Message type -- 0 if no message 
i ; RS = Unit Ste Sarese . 
684 3 OUTPUTS: 
8 9 = Low bit clear only if user is not notified 
38 = R5 = UCB ADDRESS 
669 POKE_USER: ; 
670 DSBINT UCBSB_FIPL(RS) : 
671 CLRL =(SP) : 
33 MOVAB UCBSL_XG_AST(RS5),R1 $ 
67 TSTL (R1) : Empty ? 
674 BEQL 17$ 3 
675 INCL (SP) : 
676 MOVL R1,R4 $ 
677 10$: MmOvL  (Ri),RI1 : 
o78 BEQL 15$ 5 
67 MOVL UCBSL_DEVDEPEND(RS) ,“x01C(R1) 3 
680 BRB 10$ 
681 15$: JSB G*COMSDELATTNAST 3 
6 § 17$: POPL RO : 
6 ENBINT : 
684 RSB 
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~SBTTL TIMEOUT = TIMEOUT 
TIMEOUT = Timeout 
FUNCTIONAL DESCRIPTION: 


This routine is entered on device timeout. The action is to shut 
the unit down. 


Cc 


+ 
+ 


INPUTS: 
RS = UCB address 
OUTPUTS: 
NONE 
eWORD TIMEOUT-. 
TIMEOUT: : TIMEOUT OR POWERFAIL 
BBC #XMS$V_STS_ACTIVE,- ; Br BC device is not active 
UCBSC_DEVDEPEND(RS) ,20$ 
MOVZWL #SS$_TIMEOUT,R4 3; Assume timeout 
10$ BBC #UCBSV_POWER,- ; Br unless powerfail 
UCBSW~STS(R5) ,20$ 
MOVZWL #SS$_POWERFAIL,R4 : Indicate powerfail 
BSBW SCHEB_FORK : Create the error fork process 


™ 
oO 
Sad 


RSB 
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—W STOP. BISYNC. TIMER’ = Stop the bisync mode $78 oat 88:53:93 YORIVER. SREINGDRIVER-MAR; 1 ° 33) 
7 3 on -SBTTL STOP_BISYNC_TIMER = Stop the bisync mode timer 
" He : STOP_BISYNC_TIMER = Stop the bisync mode timer 
A f § : This routine is called to stop the timer from running. 
AS 57 ? : INPUTS 
"1 § 3 RS = UCB address 
AS 5704 : OUTPUTS 
A 725 ; The BISYNC mode timer is taken off the TQE queue 
A 88 
AS 57 j STOP_BISYNC_TIMER: 
54 0000 3 D0 20A5 57 MOVE UCBSA_XG_PRO_BUFFER(RS) RA : Get protocol buffer address 
0 BB 20AA 5750 PUSHR #*M<RZ,R5> 
20 38 AG OCOD OAC 731 MOVAL BISYNC$L TQE(R4) ,RO 3; Get protocol TQE address 
5 14 a0 0D Oss § MOVL TQESL_FR&(RO) RS : Get address of protocol buffer 
4 5734 ; Set in FPC to ensure proper deletion of the TQE, that is not more than 
0B4 5735 ; one is deleted. If just the FPC is check then all TQEs' using this code 
8 § 3 (any device running BISYNC) would be affected. 
0c AO 55 20 Ss 20B4 3238 MOVL R5, TQESL_FPC(RO) 
54 01 QA 2088 5739 MOVZBL #TGESC_SSSNGL.R4 3 SET system proc not repeatable 
90000000" $f 16 at 740 JSB G*EXESRMVTIMG 3 Call system routine to remove TQE 
0 BA C1 741 POPR #*M<R4,RS> 
0c3 rs CLRBIT M#BISYNCSV_TIMER_RUNNING,BISYNCS$W_STATUS(R4) ; Set timer not running 
OQOOO000D'EF 04 8 oe ort? eits #DPTSM_NOONLOAD;DPTSTAB+DPTSB_FLAGS ; Set driver reloadable 


— 
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on -SBTTL CANCEL = Cancel 1/0 rotuine 
3 CANCEL - Cancels all 1/0 in progress 
: By looking at the channel number saved at Line startup time, cancel 


: determines which entity (line or circuit) to shut down. 

: INPUTS Re = channel number 

: R5 = current IRP address 

: R4 = PCB address 

3 R5 = UCB a 

: R8& = Cancel reason.code (zero vanilla flavored cancel) 
; IPL = FIPL 

: OUTPUTS RO - R3 are destroyed 


PAARL MAMIAIISIIIITE £ 5* 
MEW O OONAUL WH OOONG 


PPP PPP PP RRSP LPF 


should be dropped 


66 ; On CANCEL or DEASSIGN of the channel check to see if the Line should 
3; drop OTR. If this is the Last DEASSIGN then the Line must —2 DTR and 
i 3 3 we should reinitialize the settable parameters to their default values. 
51 D4 770 CLRL R1 3; Assume DTR can be dropped 
5C AS 8 TSTW UCBSW_REFC(RS) : If reference count is zero 
07 BEQL 8 3; this is last the DEASSIGN 
51 0156 C5 MOVZBL UCBSB_XG_MODEM_CLR(RS) ,R1 : Set whether or not DTR 
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771 
1 oe 
- qe 
07 11 46 BRB 208 Do not reinit param values 
06 BB $33 10$: PUSHR #*M<R1,R2> 
E106 78 BSBW INIT_PARAM : Init params to known values 
06 84 444 POPR #*M<R1,R2> 
50 0167 C5 00 781 208: MOVL UCBS$B_XG_PROTYPE(RS) ,RO : Get protocol 
7 § CASE RO, TYPE=B,<- 
7 0$,- : Lapb 
784 0$,- : Bisync 
785 > : Fall thru on DDCMP 
52 0130 S 81 7 $ CMPW UCBSW_XG_CHANL(R5) ,R2 : If EQL then matches channel 
7 13 7 BEQL SHUTDOWN_LINE ALT 3 assigned to Line 
OODA 31 3 BRW SHUTDOWN_CIRCOIT : Else shutdown the circuit 
02. 11 oy 30$: BRB SHUTDOWN_LINE_ALT 
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3 
: : »SBTTL SHUTDOWN = Shut down unit, device and/or protocol 
; SHUTDOWN LINE = Shut down unit 
; FUNCTIONAL DESCRIPTION: 
: this routine is used to shut down the unit as a result of a 
; setmode shutdown on the controller or a fatal error. the napping 
registers are returned, a call is made to shutdown the circuit; and 
Sal quotas are peturned.” 
INPUTS: 

RS = UCB address 
; fer SHUTDOWN_LINE_ALT 


9 if DTR can be dropped on shut down 
if DTR can not be dropped on shut down 
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: OUTPUTS: 


R5 = UCB address 
R6 - RO are preserved 
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RO-R3 are destroyed. 
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HUTDOWN_LINE: 3; Shut down unit 
51 D4 LRL 
HUTDOWN_LINE_ALT: 
0¢ E1 0 6Bc XG_DS_V_INITED,=- 
05 68 A Ucesu BEVSTS(RSS, 5$ : BR if not inited 
E0 BBS #ucBs?_O ONLINE 6s 
06 64 AS U $(R5),10$ ; Br if online 
50 2004 8F 3C 5$: MOVZWL #SS$_BEVINACT,RO ; Set status 
05 RSB 3 eee and return 
O30C 8F 6B 108: PUSHR #*M<R2,R3,R4,R6,R7,RB,RI> : Save the registers 
64 AS 23 AA BICW #UCBSM_INT!UCBSM_POWER!- 
UCBSM_TIM, Mery ST$(R9) ; Reset device status 
AA CVING : Clear all but xmt off 


BICW Ee DS_M 
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; off 

; and fork pending bits 
; CTSTQE running 

; Clean IRP outstanding 
68 AS 3FF4 8F 


; Clear the modem register on the shutdown. Includes dropping DTR. 
BLBS 


R1 
MOVE Uebat °c 

ROVE cRB c INtDevECSL_ IDB(R4) ,R4 
DSBINT UCBS$B_BIPL(R 


: If BS ge Gen" t drop DIR 
; Get unit 


: Disable device interrupts 
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8 AS ge 8 MOVW #XGSC_MODEM,XGSC_MISC_REG(R4) ; Get the modem indirect reg 
6 AS 0 8B 1 MOVW #0,XGSC_IND_ADDRTR4) 3 Clear modem flags 
138 ENBINT 3; Return to FIPL 
9098 3 138 15$ BSBW SHUTDOWN_CIRCUIT : Shutdown the circuit 
50 o17 Cc A 21 4 MOVZBL UCBSB_XG" PROTYPE (R35), RO 3: Get protocol type 
14 55 CASE 9 TYPE=6, 3 Case on protocol type 
14 26 18$,- + LAPB 
14 5 16$,- : BISYNC 
14 28 * 3; Fall thru on DDCMP 
128 $800 
148 — Stop the DDOCMP timer. First set up registers with params for call 
re ? 3 then make the call to the protocol. 
55 DD 2148 5864 ° PUSHL RS 
6 A 2140 65 MOVZBL #DLKSC_STOP_TIMER,R6 ; Set af R6 with the DDCMP comm 
7. m £2 96 CLRQ R? : CLR a b gh eaisters 
59 64 12 6 CLRL Ro 3; Clea 
55 00D0 C5 8 1 68 MOVL UCBSA_XG_PRO_BUFFER(RS) ,R5 : Set. * Rs with TF block addr 
AS" 30 2159 69 BSBW DOCMP 3; Call protocol 
55 8ED0 136 ty POPL 
1g a 3; After the timer has been stopped it is ok to reload the driver. 
0000000D ‘EF 8 8A 215F 7, ° BICB #DPTSM_NOUNLOAD , DPTSTAB+DPT$B_FLAGS 
1 7 188 o BRB 18$ 
FFSA 30 216 i$ 16$: BSBW STOP_BISYNC_TIMER 3; Stop the BISYNC tiner 
166 8879 
198 a0 3 : Release the map registers 
54 26 a5 00 2168 ; i8$:  MOVL —_UCBSL_CRB(RS) ,R4 : Address CRB 
57 04 9A * MOVZBL #NUM_PMAP_REG R7 : Set number of rcv blocks 
56 0110 cs 9— 21 3 4 MOVAB UCB BSZ_ XG “VECTOR(RS) .R6 : Address rcv block vector 
D 17 5 208: MOVL 3; Setup for call 
34 AG 179 58 § CRBSL INTD+VECSW _MAPREG(R4) 
OA 19 2178 BLSS 3; If LSS then done 
17 8 RELMPR : Give map regs to EXEC 
FC A601 cf 1 5 9 MNEGL #1 >} aa : Indicate done 
ED 57 5 1 i 1 30$: SOBGTR R7.20$ 3; If EQL then done 
! . 3g 3 Deallocate the protocol buffer 
50 0000 CS DO 218A 94 . UCBSA_XG_PRO_BUFFER(R5S) ,RO 3; Get the address of the buffer 
0008 c5 4 218F 95 on UCBSA_XG_PRO_BUFFER(RS) : Clear knowledge of the buffer 
08 AO Cc 21 ; 38 MOVZWL UcBSu> s} ECRO), R2 3; Get the size 
4 4 19 9 PUSHR #*A<R 
00000000 ' GF 199 98 JSB Ga CONS SRYDEALMEM : Dealloc the buffer 
24 64 19F 9 POPR oR5> 
—34 3909 ; | 
—9 gi Restore the buffered 1/0 quota and protocol buffer quota to the starter 
51 °00000000' Gr 05 TAL 3904 * MOVE” seenserpeavEe AT : Wi.) Ba eee 
og 6140 0D 1AD 5906 MOVL ittih RO : Get PCB of owner 


o v04-00 Page 
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SHUTDOWN = Shut down unit, device and/or 5-SEP-1984 2 
D1 


96 


PCBSL_PID(RO),- 
BSL-XG_PID(RS) 


B(RO),RO 
QUOTA(RS) ,R1 
B 


; Still there? 

; If NOT then BR 

; Get JIB address 

U Convert to longword 

Get bytes quota to return 

-BYTCNT (RO) ; Return byte count quota 

-QU0TAC(RS) ; Prevent this from being 
returned again 

MOVZWL S*# ; Set status 

44 Save the registers 


= 
o 
dl 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


SQV RRS SORT TE 
— 
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XGDRIVER = VAX/VMS DMF32 Sync Line Device Driver 16-SEP-1984 00:43:03 VAX/VMS Re cro V04-00 Page 
—W SHUTDOWN = Shut doun unit, device and/or iets 7 88: $3; F DRIVER.SR Cx XGDRIVER.MAR;1 . 133 7) 
1D 921 : 
1D 9 § 34+ 
1 3 7 ; SHUTDOWN_CIRCUIT = Shut down device and protocol 
199 4 5 ; FUNCTIONAL DESCRIPTION: 
106 59 5 ; This routine is used to shut down the circuit as a result of a setmode 
106 59 8 3; shutdown on the tributary or on the controller or by a fatal error on 
1D 929 ; the device. The routines frees allocated blocks; completes IRP's with 
1 4 ? 3; the active bit clear; and halts the protocol. 
199 9 g 3; INPUTS: 
1D 9335 ; 
106 23 4; RS = UCB address 
106 5935 ; 
106 23 6 ; OUTPUTS: 
106 5937; 
106 28 8; RS = UCB address 
106 5939 ; R6 - RO are preserved 
106 2940 ; 
$108 5941 ; RO-R3 are destroyed. 
106 coe8 -< 
1D6 594% SHUTDOWN. CIRCUIT: 
0B £0 2106 5944 6Bs #XM$V_STS_ACTIVE,- ; If BS then trib is active 
06 44 AS 1D8 5945 UCBSL~DEVBEPEND (RS) .5$ ; Else return with 
50 2004 8F 3C 5108 5946 MOVZWL iat LBEVINACT RO” 3 status set 
a 
O30C 8F BB 21E1 5949 5$ PUSHR #*M<R2,R3.R4,R6,R7,R8B,RI> : Save the resisters 
24 A5 00 2165 5950 MOVL UcBst é : Get unit csr 
54 2C B4 D0 21E9 5951 MOVL CRBSC INTD+VECSL_ IDB(R4) ,R4 
1ED 2826 DSBINT OcBS8-BIPLRS) ; Raise IPL for master clear 
0800 8F AA 21F4 595 BICW #XMSM_STS_ACTIVE,- 
44 AS 178 5954 UCBS$L ~DEVBEPEND (R5) : Set inactive 
AB 21FA 5955 BISW #<X6 Bs. . _XMTING! = 3; Set the XMTer and 
1FB 5956 G-DS_M_RCVING>,=- 3; RCVer off 
68 AS 03 a 34 ucBsa. DEVSTS(R5) 
ie 2325 ASSUME XGSC_IDLE EQ 0 
0120 65 94 305 3003 CLRB UCBSB_XG_XSTATE(R5) 3; Reset xmter state 
§ 8 2908 TIMEWAIT #50,#XGSM_ENABLE , XGSC_XMT -CSR(R4), W,EQL ; Wait till XMT'r 
6 38 completes 
0080 8F 48 6 8 BISW #XGSM_MASTER_RESET,- 3; Master clear the unit 
04 AG 3 XG$C_AISC_REG(R4) 
0104 3 D4 369 CLRL UCBSL_XG_XMTEND(R5) : Clear XMT timeout 
¢ €1 970 BBC #XG_DS_V"-INITED,=- 
32 68 A 971 UCBSW BENST (R55,10$ : BR if not inited 
1F 976 PUSHR #*M<RO,R1,R2,R3,R4> > Save registers 
54 4 AS D 7 597 MOVL UCBst tRBin $ Rd : Get CRB address 
4 8 Be ) B 5974 MOVL acresc C LINTDAVECSL_ADPCR4) .RA ; Get addr of configuration reg 
52. 0110 é DE ib 38 HOVAL UCBs ae VECTOR(RS) R2 : Get mapping slot 
60 EF “9 379 6$ EXTZV —8 _MAPREG, = ; Get start * -- Ae regs 


; Set number of mapping regs 
| 


0167 C5 
56 §©O00EC 
O0E8 DS 


O0E8 DS 
OOFC C5 


05 _1F 
OOF8 D5 
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=—=NOUIM PRALAOO 


; Special case the BISYNC case 


WDOWOOOOOOOOOOOOOOOOONO 


W000 00000 O00 00 CoCD CD CDCDCDCO ~~ 
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= VAX/VMS DMF32 Sync Line Device Driver 16-SEP-1984 00:43:03 VAX/VMS ™ 4 
SHUTDOWN = Shut down Units device onuvor ieean eſf bunez e5, 


#VECSS_MAPREG, (R2) ,R1 
VECSB_NUMREG EQ VECS$W_MAPREG+2 
2(R2) 


RO,6$ 
#°A<RO,R1,R2,R3,R4> 


Clear any RCV's or XMT's pending 


@YCBSO_XG_RCV_INPR(RS) RG 
(R6) ,AUCBSO_XG_FREE+4 (RS) 
UCBSL_XG_RCV_INPR(RS) .R6 
UCBSL_XG_RCV_INPR(RS) 

(R6) ,SUCBSO_RG FREE+4 (RS) 
UCBSA_XG_PRO_BOFFER(RS) ,R4 
BJ SYNCSALRCV_BUFFER(R4) ,R6 
(R6) ,@UCBSQ_XG_FREE+4(R5) 


Y5 982 X6_XAT_INPR(RS) CRS) AI 


-—Cc zn 
fFow 


x 1714S 
(R1) ,@0CB$Q_XG_POST+4(R5) 


: Deallocate all the attention AST control blocks 


UCBSL XG_AST(R5S) ,R7 
(R7) ,RO 


$ 
ACBSL_KAST+1 (RO) RE 
ACBS$L ~KAST#12(RO).R 
G*SCHSGL_PCBVEC,R4 
(R4)CR2I-R 

Ge C OMSFLUSHATINS 


Sete Sete te Bete Se Ge Se Se Ge Ge Se Se Se Sete te 


cro 


Get number of map regs 
Get first register 

Mark the register invalid 
Loop thru all registers 
Get next slot 

Loop thru all slots 
Restore registers 


because we do not use the inpr queu as 
; @ queue. For Bisync, we can have only one receive outstanding at a time 
; thus there is no need to use the queue and in fact the second long 
3; word is used for other information necessary to receive data. 


PEPE. PROTIPS BIS UNE UCB, W8 PROT IES CF? 


; Bisync? 


yes 
ape en on the inpr queues 
en no 

Else queue to free queue 


Get the rcv buffer 
No buffer 


Clear the address from slot 
Insert on free queue 

Get protocol buffer address 
Get addr of buff given to dev 
No buffer 

Insert on free queue 

Get prim buffer to compl 

Comp XMT's on inprogress Q 

If EQL none to complete 


Decr # of outstanding XMT's 
If BS then control message 


; don't put on post queue 
; Insert to be completed 


Return to fork level 


Address List head for AST's 
sayin ine in the list? 

If EQL then empty 

Force channel 

Get PID index 


Get PCB 
Flush the attention AST's 
Continue until done 


AL ee ee ee ee ee ee 
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XGDRIVER - VAX/VMS DMF32 Sync Line Device Driver 16-SEP-1984 00:43:03 VAX/VMS M v04- p 7 
Yee SHUTDOWN = Shut deun unit, dev ce and/or ~$EE=1982 $8359 :93 ONIVER. CAC IRGORIVER.MARS 1 Pate 137, 


5 ; Clear the post queue 


56 O00F4 83 OF 208: REMQUE F580 N6_POSTIAS) .RE ; Get next buffer to complete 
2 1D vs $ : If VS then no buffer found 
13 04 Ag pf cree RPSB_TYPE(R6),S*#DYNSC_BUFIO ; If NEQ then not XMT buffer 
53 OC 4 oor aa —— 3; If EQL then no IRP to comp 
1 6 MOVL R6,R1 3; Set up R1 for branch 
38 A3 gC ¢ MOVZWL #S$$_ABORT, IRPSL_MEDIA(R3) ; Set abort status and compl 
F998 3¢ BsBu TRANSMIT _10_DONE > the request 
17 OA 9 258: tag 40000. TYPE (RG) S°PDYNEC NET 3: If EQL then RCV buffer 
OOE8 D5 48 of A 10g) -GUCESG_NG_FREE*4 (RS) ; Put on free Q to complete 


: 
6 
6 
6 
6 
6 
6 
6 
6 
6 
é 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
607 
A i 
53 0odt 5 oF A 6 , é0s: REMQUE SYCBSQ_XG_RCVS(RS) .R3 ; If VS then queue is empty 
38 43 — 1 607 MOVZWL #SS$_ABORT, IRPSL_MEDIA(R3) : Set status and size 
F96 9 5 607 Saw 10_ DONE 3: Complete the request 
FOO : é f BRB 608 ; Branch to get next IRP 
4A 6 ; Complete all XMITS 
6082 70$:  DSBINT UCB$B_DIPL(RS) : Lock out interrupts 

BICW #UCBSM TUR YCBSA IMT. 2 ™ 

UCBSW_STS(R5) 


0 AA 
64 A 
OA 68 AS of ES 
D4 
54 0000 8 
EC 


2 


: Deallocate all receive buffers 
308: NOVAB UCBSQ_XG_FREE(RS) ,R6 
oe UCBS$Q_XG_ATTN(R5) ,R6 
os CBSB_XG_INUS(R5) 
40$: REMQUE @(R6),RO 
BVS 50$ 
ADOW po 


56 §=600E4 C5 
56 0004 C5 


Get queue Listhead 
Empty queue 

Get queue Listhead 
Empty queue 

Free all slots 
Continue 

Get buffer 

If VS then none 
Restore quota 


~0—.0— © 
om 


Bete Ge Ge Ge Se Ge Se Ge 


010C C5 UCBSW_XG_QUOTA(RS 
00000000'GF 16 JSB G*COMSORVDEALMEM 3; Deallocate buffer 
ec 11 BRB 40$ 3; Loop 
05 50$: RSB 
55$: BUG_CHECK NOBUFPCKT,FATAL 


IDS DDS SDD DS TTI Be BS BB EEE EWI 


> Complete all associated receive 10 packets 


OGOOOCOCOCOCOGOGOSOOSOOGOOSOOOOOOOOCOOOSOOOSOSoO: 


PAP SD OOD OS ONAN F-WIN * S OO NIA O ODNIAUNE WO ODN 


ENBINT - Reset interrupts 

BBCC #4G_DS_V_CLEAN,UCBSW_DEVSTS(R5) , 738 3; IF BS then do clean handling 
R 3; Set no buffer to post 

MOVL UCBSA_XG_PRO_BUFFER(RS) ,.R4 ; Set protocol buffer address 

BSBW SLE AN, FORK ERTRY 


~© 0.000000 00 0009 00 G9 0D Co 


888 
o 
- 
2 
* 


~ 
aw 
bad 
wv 
Cc 
w” 
= 
=~ 


: Save registers 


9A 
do 


2 


* 


0-9 0--m 


582 —X 
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9—————OE—— 
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- VAX/VMS DMF32 Sync Line Device Driver SEP=1 
SHUTDOWN = Shut down unit, de 4 E ; 


MOVZBL 
MOVL 
CASE 
MOVZBL 


MOVZBL 
CLRQ 


BSBW 
MOVAB 
POPR 


BR 
MOVAB 
Pp 


BUG_CHECK 


evi 


ce and/or 5-SEP-1 


E 13 

16- 4 

2 8 

UCB$B_XG_PROTYPE (RS) ,R 
UCBSA-XG-PRO_BUFFER(R5) ,R5 
RO, TYPE=B,<- 
75$,- 
75$,- 
#DLKSC_USRINT,R6 
#DLKSH_STOP,R? 
DDcHP 
TF$Q GMPQ(RS) .RG 
#°M<R35,R5> 
LAPBSQ_XMTQ(R5S) ,R6 
#A<R3~R5> 


BI SYNcsa XMTQ(R5) .R6 
#*M<R3,R5> 

a(R6),R1 

90$ 


XMTQSB_BUF TYP(R1) ,S*#DYNSC_BUF 10 


XMTQSL_IRP(R1) ,R3 
#SS$_ABORT, IRPSL_MEDIA(R3) 
TRANSMIT _10_DONE 


S*#SS$_NORMAL ,RO 
#OM<R27R3,R4,R6,R7,RB,RI> 


NOBUFPCKT FATAL 


AX/VMS Macro V04-00 
DRIVER.SRCIXGDRIVER.MAR; 1 


3; Get protocol type 
3; Set protocol buffer address 


B:0:1 
} 


Case on protocol type 
3 p yp 


BISYNC 
Fall thru on DDCMP 


; Set up to halt the protocol 


; Get queue to complete from 
; Restore the registers 


; Get start of device queue 
; Restore the registers 


; Get start of device queue 
; Restore the registers 
; Fompcete all XAT's 


S then no more to cmolt 


; Branch NEQ not a valid buff 


Get associated IRP 
Set aborted status 
Complete the 1/0 
Branch to get next 
Assume shutdown 
Save the registers 


Page 13 
. (77) 
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F 1 
— beler, ~$EP=1984 90:20:11 EDRIVER.SRESXGDRIVER.man:1 "2% (78) 


evic 
uffe 
Vt V Mt 1paTe re. Vali eate P2 bul fer parameters 
TTL 


XGDRIVER = VAX/VMS_DMF32 Sync Line D 
—WB VALIDATE soe Validate Pe b 
VAL tIDATES TRIB, alidat uffer with Trib param 
: 


- $8 
-$8 
- $8 VALIDATE-P2_UCB, vat date P2 buffer with UCB 


+ 


ALIDATE_P2 = Validate P2 buf 4 arameters 
: VALIDATE=P TRIB = Validate P2 buffer with trib parameters 
VALIDATE_P2_UCB = Validate P2 buffer with UCB 


; This routine is + bey to validate the < buffer perensters. The parameters 
are checked opp tney @ parameter table which verifies that the minimum value 
and maximum value is not violated, and that invalid status flags are not set. 


x 
S$ 
U 
Ui 
U 
U 
U 
U 
U 
U 
U 
U 
U 
U 
U 
U 
U 
U 
U 
U 
U 
U 
U 
U 
U 
U 
U 
U 
U 
U 
U 
U 


; Inputs: 
R1 = Address of parameter verification table (VALIDATE_P2 entry only) 
R2 = Status word from UCB 
RS = IRP address 
R4 = UCB or trib parameter block address for value 
checking (VALIDATE_P2 entry only) 

RS = UCB address 
IPL = FIPL 

Outputs: 
RO = status return of parameters 

If no erro 

* * of parameter verification table 

erro 


Ri = Bad parameter value 
ALL other registers are preserved. 


FPIAPOAOAIOIOAOOOOAOOOOOOOOOAAAAOAIAAAAAAAOAOAAOON 


NWT AH wG HMO ODN a a a a a a at a ⏑⏑ü⏑üü 


-ENABL LSB 
VALIDATE_P2_TRIB: Validate P2 buffer with TFB 
0D PuSAL R4 Save R4 
9 MOVAB TRIB R1 Get address of verification table 
MOVAB yee? xe ADOCMPCRS) , R4 Get address of block to set 


DOCMP parameters 
Validate P2 buffer with UCB 
Save R4 


Get * darese of verification table 
copy XS address 


bre 10$ 
VALIDATE P2_ UCB: 
PUSAL 


4 
LINE PARAM,R1 


SOVOMOOOOore « 


40 oR 
2 10$: BSBB VALIDATE_P2 Do the validation 
4 POPL R4 Restore 
RSB Return to caller 
-DSABL LSB 


VALIDATE_P2: 
PUSHR #*M<R1,R2,R3,R5,R6,R7,RB,RID> 


JRPSL_SVAPTE(R3) .R6 
0$ 


Validate P2 buffer parameters 

Save registers 

NB:R1 must bs on top of stack 

get ,yretes P2 buffer address 
a system buffer 


OSEE BF 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
15 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
0 
56 2C A D 1 
0 Bf 


=O OOD NAME WN 2S OD OB NAN EWN 9 OS OD NAN E WI 2 O OD NAUE — OONOU 


000 SII IOP PP ODA AAA AG AAA EB BB MAA OPFOR 


DEA ADA DAD DDD PAID DODDS ODO OOOO O~ 


54 
51 sth CF tc 
54 0134 c5 98t 
OA 11 
54 OD 
51 ed gf 9 
4 5 98 
d BED 
0 


manmnooollTl7Tc7 
<eccccccccccccccccece 


MOVL 
BNEQ 


1 
G 13 ' 


XGDRIVER = VAX/VMS DMF32 Sync Line Device Driver =SEP-1984 00:43: AX/VMS Macro V04-00 Page 14 x 

—W VALIDATE Po UCB, Val date pS buffer wit — 90:53:03 DRIVER. SRCIXGDRIVER.MAR; 1 ad (78) 8 

08 1 E9 61 BR 150$ : Else, leave x 

58 33 A : E 1 § 108: MOVZWL IRPSW_BCNT(R3) RB ; Get size of P2 buffer x 

8 06 ¢C F 184 DIVL a RB 3; Calculate number of parameters x 

66 OD r 5 MOVL  P26_L_POINTER(R6) .R6 ; Point to start of P2 data x 

F ; ; Loop to check next parameter in P2 buffer x 

2 $6 3 F 1 § 308: MOVZWL sees -8 ; Get parameter type from P2 x 

» F 190 MOVL (R6)+,R 3; Get parameter value from P2 x 

7 6€ OD FC 131 MOVL  (SP),R7 : Get parameter table address x 

44 138 ; Loop to check P2 buffer parameter to Line parameter table : 

59 87 a0 FF 6195 40$:  Mmovw  (R7)+,R9 ; Get parameter + flags x 

3 1 402 136 BEQL :; Br if end of verify table x 

50 659 OC 9 Fe r 3 919 Hyd dy ZESALV. TYPE -MPRN_S_TVPE .RO.RO 3 perqnesere match? 
; Br es 

87 B5 24 6198 TSTW R7)+ 3; Skip offset word x 

40 00 SKIP PRM_V_MIN,RO,R7 : Skip minimum value x 

48 6201 SKIP PRM_V_MAX,R9,R7 ; Skip maximum value x 

419 6 0¢ SKIP PRM“VINVALID,R9,R7 : Skip invalid flags x 

DE 11 8 BRB 40$ 3; Try next parameter : 

4 6 05 : Match found - nullify if same value & check min,max,valid, invalid x 

51 1H 8 421 6 07 Sos: MOVW (R7)+,R1 3; Get offset + width x 

4 0O 424 6208 TSTL R4 ; Is data structure present? x 

2 1 4 $ 6209 BEQL 100$ : Br not - check values x 

a a6 h6Ue a 6210 EXTZV #OFF_V_WIDTH,MOFF_S_WIDTH,R1,R3 ; Get width onl x 

51 51 OE 00 «EF 42D 6211 EXTZV #OFF_V_VALUE,#OFF_S_VALUE,R1,R1 ; Get offset only x 

51 54 CO 24 ¢ 6 \¢ ADDL R4,R 3; Calculate address of datum x 

4 621 CASE R3,TYPE=B,LIMIT=41,<- 3; Br to handler x 

435 6214 0$,- : Byte value x 

4 : 6215 0$,- : Word value Xx 

? ; e 8 80$> ; Longword value ° 

re : ° 18 : Byte value in structure — 

61 55 91 263F 6220 60S: cues 83, ca1) : Is this the same? x 

08 11 9 1 BRE 90$ 3 Check result . 

rer 6 § : Word value - 

61 55 81 44 5 708 CMPW sR, (R11) : Is this the same? x 

0311 447 6 BRB 90$ : Check result x 

61 5 1 2449 $: CMPL R5,(R1) 3; Is this the same? x 

z 3 44 te BNEQ 106s ; Br if _no = continue checks x 

FA A6 9 44 0 CLRW 6 (R6) : Nullify the parameter code x 

18 1 43 1 BRB 140$ 3; Try next parameter - skip checks x 

05 59 9 E1 24 100$: 8860 #PRA y MIN,R9,110$ : Br if no minimum value x 

87 a 4 4 CMPW R5,(R7T+ 3; Is the value too small? x 

1A F 245A 5 a 1 ; Br if yes - error x 

05 59 3 E1 24 § 110$: 886 #PRA y MAX,R9,130$ ; Br if no maximum value x 

87 iH 48 CMPW R5,(R7T+ 3 is he value too big? x 

1 A 2 8 BctRU 1706$ ; Br if yes - error x 


XGDRIVER = VAX/VMS DMF32 Sync Line Deyice 4. er 16-SEP-19 43:03 \VAX/VMS Macro V04-00 Page 141 
yO0 008 . VALIDAYE Po UCB, valtdete PS Gatton eit SaSEpa19bG BOsSOgT VES eee ee vot ee mars1 29° 3, 
05 £ 4 39 130$: BBC #PRM_V_INVALID,R9,140$ ; Br if invalid fl 
33 vel i r 5 ; Bare (Ry) Ra 3 ghect Tnval id bits * 
on - er 
85 F ? — 140$: SOBGTR hb 0s 3; Loop if more parameters 
*. 2 7 471 rk: 150$: MOVZWL $,85S8_NORAAL .RO 3; Set success return 
6 ore 2 BRB 80 : And return 
50 3 me ‘3 170$: MOVZWL RO,(SP) 3 Retvrn bed peraneter gods : 
3 op of sta 
— 30 2479 6 8 MOVZWL #SS$ BADB ARAM RO : Set error return . , 
EE a A are 6 20 180$: POPR  #*M<R1,R2,R3,R5,R6,R7,R8,R9>  : Restore registers 
5 248 RSB 3; Return to caller 
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13 
F32 Sync Line Device Seles 
Update UCB/TRIB based on P2 


3 -SBTTL UPDATE_P2, 


+ 


; Inputs: 


Ri = 
R3 = IRP addre 
R4 = 

= 


0 = destroyed. 


UPDATE _P2: 


MOVL  (SP),R7 


we 
oa 
bad 


DONA MAE WIN OS OO — WIN SO OD NAOUES WN ( OVDONAULS U0 000 


BSOODOGOOOSO00000O0O0 OO O00 G9 090909 09 09 6969 09 INI NI NI NININNNNPAAAAAAAO Our 


6 
: 


1986 80:20:11 


RS = UCB address 
IPL = FIPL 
Outputs: 


R e 
ALL other registers are preserved. 


USHR #*M<R1,R2,R5,R6,R7,R8,R9> 
MOVL {OPOL .SUAPTE (RS) .AE 

BEQL 0$ 

5 IRP$W_BCNT(R3) RB 

MOVL  $P2B_L_POINTER(R6) ,R6 

; Loop to get next parameter from P2 buffer 


10$:  MOVZWL (R6)+,RO 
MOVL (R6)+.R5 


BEQL 708 

a] R 

BEQL 8 
TSTW u ⸗ 
SKIP PRM_V_M 


AX/VMS Macro v04-00 
DRIVER. SRCIXGDRIVER.MAR; 1 


Update UCB/TRIB based on P2 buffer parameters 


Page 14 | 
a 19) 


+ 
UPDATE_P2 = Update UCB/TRIB with P2 buffer parameters 


; This routine is called to update the UCB/TRIB with the P2 buffer parameters. 
; The parameters are stored in the appropriate cells of the UCB/ TRIB. 


Address or poreneter verification table 
s 
UCB or ddcmp parameter block address for storing 


Update the UCB/DDCMP parametr 


; Save registers 
NB:R1 


: must be on top of stack 
Get system P2 buffer address 
Br if no system buffer 
Get size of P2 buffer 
Calculate number of parameters 
Point to start of data 


Get parameter type from P2 
Get parameter value from P2 
Get parameter table address 


; Loop to store buffer parameter in UCB/DDCMP parameter block 

20$:  MmOVW (R7)+,R9 

EXTZV «=#PRM_V_TYPE,#PRM_S_TYPE,R9,R1 
Pu RT 


Get parameter + flags 

Br if end of verify table 
Get type field 

Parameters match? 

r if yes 

kip offset word 

kip minimum value 

kip maximum value 

kip invalid flags 

Try next parameter 


8 
8 
8 
8 


Match found - nullify if same value & check min,max,valid, invalid 


offset + width 


(R7)+,R1 : Get 
V @OFF_V_WIDTH,MOFF_S_WIDTH,R1,R2 ; Get width only 
V #OFF_V_VALUE ,#OFF_S_VALUE,R1,R y 


Get offset on 
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51 54 CO 24D 1 ADOL R4,R1 3; Calculate pddress of datum 
4D 1 CASE R2, TYPE=B,LIMIT=#1,<- ; Br to hand 
40 1 $,- : Byte value 
4D 1 $,°- ; Word value 
*3 60$> ;  Longword value 
3 18 ; Byte, word, longword value in structure 
61 tf 90 4p 18 ios: wove RS, (R1) ; Store byte value 
61 ; 99 9 50$: —* te (R1) ; Store word value 
61 ; 09 4E : 60s: MOVL x08 (R1) ; Store Longword value 
A&B 58 SOF 3 2357 $: SOBGTR R8.10$ : more parameters 
O3E6 8F SED 6325 80S: POPR #*M<R1,R2,R5,R6,R7,R8,RI> ; Restore registers 
4F1 6326 RSB ; Return to caller 


— 
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-SBTTL RETURN_P2, Return UCB/DDCMP buffer parameters 


AAO 


p++ 

3 RETURN_P2 = Return P2 buffer parameters 

This routine is called to return the UCB/DDCMP buffer parameters. 
Inputs: 


= Address of return table (same format as verification table) 
= Address of user buffer in which to return the parameters 

= IRP address 

= UCB or DDCMP paramter block address for storing 

= UCB address 

SW_BCNT(R3) = Size of transfer 


—DDDDwD 


1 
§ 
4 
5 
RP 


‘ 
f 
d 6333 
4 6 ty 
tk S308 
rt 3 8 Outputs: 
GF g 8 RO = destroyed. 
GF2 634 ALL other registers are preserved. 
af e348 
4F 50 
4F o35 RETURN_P2: : Return P2 buffer parameters 
01E6 of BB 24F2 6 26 PUSHR #*M<R1,R2,R5,R6,R7,RB> : Save registers 
56 2 0 4F ° 5 MOVL R2,R6 ; Get user buffer address 
50. (1 oF 54 BEQL 6 ; Br no system buffer 
58 32 43 3C 24FB 6355 MOVZWL IRPSW_BCNT(R3),R8 ; Get size of buffer 
58 06 C6 of — DIVL #6,R8 3; Calculate the number of param 
3 — 38 ; Loop to return next parameter 
55 81 80 502 6360 10$: mOoVW  (R1)+,R5 : Get parameter + flags 
1 5 6361 BEQL 0 ; Br if end of verify table 
57 55 oc 0 EF 507 6 66 EXTZV «= #PRM_V_TYPE ,#PRM_S_TYPE,R5,R7 3; Get type field 
86 7 BO 250C 636 MOVW R7, (R6S+ ; Return parameter 
57 81 80 30 6364 mMOVw  (R1)+,R7 3 Get offset + width 
33 57 02 3 EF 3 6365 EXTZV OFF _V_WIDTH,#OFF_S_WIDTH,R7,R2 ; Get width onl 
5 57 5 ? EF 51 6 96 EXTZV #OFF_V_VALUE,#OFF_S_VALUE.R7,R7 ; Get offset only 
5 4 CO 251C 636 DDL 4,R 3; Calculate address of datum 
aif ° re CASE Bec VYPESB.LIMIT=A1 .<~ 3 Or to Rengter 
7 3 value 
51f 3 ate 3 Word value 
aif 4 . 40$> :  Longword value 
: 2 6 7 : Byte, word, longword value in structure 
86 ’ 3 208 MOVZBL (R7), (R6)+ : Store byte value 
: 7 30$ VIWL (R7),(RO)+ 3 Store word value 
3 oS $08 4 (R7) , (R6)+ > Store lLongword value 
6 ? 50$ IP PRM_V_MIN,RS,R1 : Skip minimum value 
KIP PRM_V_MAX,R5,R1 : Skip oes aye value 
4 é ; JKIP PRM y INVALIO,R5S.R1 : Skip invalid flags 
rH} 30 SOBGTR R8,TOS : Try for more parameters 


rs 


V 3 
—B — — — 1 
iste 
aller 


O1E6 8F A 48 5 60$: POPR #*M<R1,R2,R5,R6,R7,RE> 3 Restore 
Be $348 $383 RSB 3 Return tot 
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83 -SBTTL UNPACK_P2_BUF, Unpack a P2 parameter from P2 buffer 


+ 

UNPACK_P2_BUF = Unpack a P2 parameter from P2 buffer 

Functional description: 

This routine is called to get a P2 parameter from the P2 buffer. 


—*8 


BEQL Br if yes 
SOBGTR R7,10$ 


Br if more parameters 


Return error 
Restore registers 
Return to caller 


wn 
Oo 
on 
o 
2 
— 


50 : RO 
OOEO 8F 0$: POPR #*M<R5,R6,R7> 


— 

—X 

— 

~ 
ooo "—-090W 
Vr VW—oOoOm 


@ 
mn 
wo 
. 


34 
3 3 
38 ; 
94 ; 
5 3 
33 é $7 ; Inputs: 
3 é 38 : RI = Parameter type code 
4 3 R353 = IRP address 
22 8 RS = UCB address 
22 e108 : Outputs: 
550 6405 : RO = Low bit set if specified Parameter type code is found in P2 
$30 2458 : R2 = Parameter value if success else destroyed 
550 6408 ; ALL other registers are preserved. 
550 6409 ; 
3897 
550 88 UNPACK_P2_ BUF : : Unpack P2 buffer 
OOEO 8F BB 2550 641 POSHR #*M<R5,R6,R7> 3: Save registers 
56 =at “3 0 238 848 —* RPSL_SVAPTE(R3) ,R6 3 set .gys em P2 buffer address 
3 Br none 
57 32 AS 3¢ 255A 6416 MOVZWL IRPSW_BCNT(R3) ,R7 3; Get size of P2 buffer 
57 06 C6 255E 6417 DIVL 3 Caculate number of parameters 
56 0C A6 SE 2561 6418 MOVAB P26 _T_DATA(R6).R6 : Point to start of data 
50 0 3¢ 232 oe]? MOVZWL S*#SSS$_NORMAL ,RO 3 Assume success 
368 8 1: Loop to check next parameter in P2 buffer 
55 86 568 64 g 10s: MOVZWL (R6)+,R5 Get parameter type from P2 
2 86 56B 6424 MOVL (R6)+,R2 Get parameter value from P2 
5 2$ 6425 CMPW R1,R5 Parameters match? 
5 64 $ 
573 64 
576 6428 
576 6429 
578 64350 
¢f 8 1 
7 4 ¢ 
57D 64 
57D 6434 
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$$$ ⸗ 02 COMSFLUSHATTNS aeeeeeee =X 
$SSOF F 2 0068 COMSPOST feeneeee x 
SSSTYP 2 4 COMSSETATTNAST aeeeeeee xX 
$S$SWID = 4 09 COM_RCVFDT $38 R 
= COM-XMITBISYNC 432 R 
ABORTIO 1A R 03 COM-XMITFOT At R 
ACBSL_KAST ⸗ O18 COM-XMITLAPB 9 432 R ; 
ACCESS 0 R 03 CONTROL_INIT 136 R 
ADDFREELIST 9 1627 R COP_BUFF 0342 R 03 
ALLOC_POBUF 9 OR CRBSL_INTD z 024 
ALLOC“PROT_BUFFER 000 A 8 CRBSL_INTD2 = 0000004 
ALT_CCEANFOT 0 40 if CTSRET 90 9D R 03 
TENTRY R CTS_TIMER D30 R 
ALT“ENTRY_BISYNC OO3F3 R CXBSC_TRAILER = 8 0004 
ALT_ENTRY_LAPB 60008 FZ. R 0 CXBSK-HEADER = 00000048 
ALT-RCVFDT 0000309 R 0 DC$_STOM aeeeeeee =X 02 
& ⸗»*2****** §6X 8 DOBSL_DDT = 0000000C¢ 
AWATT_CONT QO00011E2 R 0 DOCMP aeeeenee = X 03 
AWAIT“UNIT 000011CB R 3 DDCMPSC_HEADER = 00000006 
CHAR_NPOS 4 sd B 3 DOCMPSC _SIZEOFQ = 454 
BCHAR_NPOS_CMP OOO1FOC R 03 DEF _BISYNC_PARAM 06 00146 RG 03 
BCHAR_PPOS QOOOIEFF R 03 DEF _BISYNC_PARAMSZ = 44 
BCHAR-PPOS_CMP Q0001F 16 R 03 DEF -LAPB_PARAM 90000) RG 03 
BISYNCSA_RCV_BUFFER 0000001C DEF -LAPB_PARAMSZ = 0000000 
BISYNCS$B_XQCRT 00000010 DEF _LINE_PARAM 44 RG 03 
BISYNCSC_HDRLEN 0000000¢ DEF -LINE_PARAMSZ = 00000014 
BISYNCSC_LENGTH 00000074 DEF _SYNC_PARAM 00000136 RG 03 
BISYNCS$K_HDRLEN 0000000¢ DEF -SYNC_PARAMSZ z 90000008 
BISYNCSK_LENGTH 00000074 DEF _TRIB_PARAM 464 9 RG 03 
BISYNCSL_HOR 90000000 DEF-TRIB-PARAMSZ = B60000A 
BISYNCSL_TQE 000000 DEVSm_AvC = 00040000 
BISYNC$Q_BLANK 4 494 4034 DEVSM_IDV = Boos 00 
BISYNC$Q_CLEANQ 44444 8 DEVSM_NET = O38 00 
BISYNCS$Q_INIT_STATE_INFO 00000014 DEVSM-ODV = 0800 009 
BISYNC$Q_XMTQ 90000030 DEVTIMER 90 1077 R 03 
BISYNCS$V_RCV_COMPLETE 2 9000 000 DEVTIMER ALT OO1DFS R 03 
BISYNCSV_TIMER_RUNNING = 00000001 DLASA_POSTQ 00 S008 
BISYNCS$W_DROP_RCV 0000011 DLASA_XMT_I 0000000 
BISYNCSW_RCV_INDEX 000000C DLASC_ADDR_LENGTH 00 0008 
BISYNCS$W- STATUS 3000008 DLASK-ADDR-LENGTH 99 000 
BISYNC_TIMER QO0001E18 R 03 DLKSB_MAINT 000000 
$_NOBUFP aeeeenee =X 8 DLKSB_MAXREP 0000000 
CANCEL 0D0 R DLKSB_MAXS 0000000 
CHECK_BUFS AE? R DLKSB“RRB 9 9 99 
CHECK-NEXT ECD R DLKS$B_MSGCNT 1 
ECK"P1 8 R LK$B-TRIB 9 3000 
ECK-P2 Ag 8 DLKSC-ACTNOTCOM = 
CHECK-RCV e D R KSC"CHAR 2 0005 
CHECK XMT 90 1FA7 R DLKSC"RCVMSG * 0001 
CHG_TRIB C48 R DLKSC"REQEBA = 3 
CHG_UCB 78 R DLKSC"START_TIMER z $ 
CLEAN F54 R DLKSC"STOP_TIMER = 
CLEANFDT aie k DLKSC_USRIRAT 2 4 
CLEAN_BISYNC 027 R DLKSC"XMTMSG z é 
CLEAN-FORK ENTRY OFSA R DLKSM~CL = 
COMSDELATTRAS eerereee =X DLKSM_DATACRC = 4 
COMSDRVDEALMEM eeeneeee§ KX 03 DLKSM-GLOB 2 0004 
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i “SEP=- 243: /VMS Macro V04-00 
XGDRIVER = VAX/VMS DMF32 Sync Line Device Driver Vg-SEP-1986 —833 DRIVER. SREIXGDRIVER.MAR: 1 
Symbol table * * 
VASY 
UCBSC_XG_ LENGTH = 174 A 5 DF R 
UCBSL_CR - 3 VALIDATE*PS. TRIB —1 
UCBSL-DEVCHAR . i? VAL IDATE-P9UCB ¢ 
UCBSL_DEVDEPEND : 14 VeCSB.DATAPAYA = 
—386 VEC J REG — 
UCBSL_SVAPTE as 5 vECet B = ge 
UCBSL-XG_ 13 VECSLTINITIAL : o¢ 
UCBSL_XG_P1 . OFC VECSLIUNITINIT - ; 
CBSL_XG_ = 000 i VECSS-MAPREG > 
UCBSL-XG_STATE_ INFO} ; i VECSV-MAPREG . 8 
UCBSLXG_STATE INFO2 p 48 VECSW_RAPREG . 20004 
= xX . 

UCBSL_XG_XMTEN)D 104 “BP = 0 
UCBSL-XG XAT _TIMEQUT = 806 19 — 0900 
UCBSM_ONL INE ° g88 3 B"MNTLOOP S 0 00009 
UCBSM_POWER = 90000001 XGSB_NUM_ SYNC = 99000001 
UCBSA_TI 0000004 XG$B_PROTOCOL = 00000008 
UCBSQ-XGCFREE ag9000e4 XESB-SYNC. REG : 990000 
——— 0 G$B-1K BFC : senna 
—— —— gee = 99000000 
UCBSQ_XG_STATE_iNFO 090004 — —— 9090008 
UCBSV_POWER = 90000006 NESC~BRG“DEF AULT ° Doo00tg¢ 
—— = BO90007E 332 ATA 0 
UCBSW_BOF F . “DRPCTS = 0000000 
UCBSW~DEVBUF S12 : ; XOSEERR RCI = 0000000 
UCBSW_DEVSTS : 5 XGSC~ERR-CRC16 = ayn 
UCBSU-REFC = 99000036 NGSCCHEADER™ = 00900006 
UCBSW"SIZE : rs XG$C~IDLE = 9000000 
CBSW_STS . “IND_ADOR = 90000006 
UCBSW"XG_CHANC 3 NGSCTINTCLR OFF = o000 —8 
UCBSW_XG_CHANL A XGSC“LINE_PAR = 60000004 
UCBSW_XG"D 5 XG$C-MISC-REG 8888 
ret eda KeBt- PODER 66 
UCBSW_XG_RCVCSR XGSC~PRIRCV . 
UCBSW_XG_RCVERR . F XGSC-PRIXMT . 
UCBSW_XG_RCV_INIT F XGSC_PRI_RCV ⸗ 
— pth 
UCBSW_XG_XMTERR a3 XGSC~PROTYPE.BISYNC z 1 
UCBS$Z_XG_DDCMP C XGSC_PROTYPE —DDCMP s 

— ADDR $f XGSC_PROTYPE LAPS . 
UCBSZ_XG_VECTOR XGSC~PRO-HOLC ° 
TINT . OSCCRCV-ERR : 

UNPACK _P2_ BUF R i XGSCuSECREV ° 

VASA_BYTE : NOSCTSECIRCVI : 

VASS_VPN . — 
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XGDRIVER = VAX/VMS DMF32 Sync Line Device Driver 16-SEP-1984 43: AX/VMS Macro V04-00 Page 153 
Symbol table 4 et 7 88 3:07 YORIVER. SREINGDRIVER.MAR: 1 . (81) 
XGSC_SIZEOFQ = 7F XG_DS_M_RCVENB 2 1 

S$C_SWFCTS = 4 XG_DS_M_RCVING = 
XGSC_SYNC_BISYNC = XG_DS_M_RCVPS = 
XGSC_SYNC_DDCMP = XG_DS_M_RCV_DONEP z 4 
GSC_SYNC = XG_DS_M_RCV_DONES = 

SC“WFCTS = XG_DS_M_XMTING = 1 
XGSC_WFCTS SEC = XG D8 .V CLEAN = F 
XGSC_XMTING = XG_OS_V_CTSTQE_RUN ⸗ 
XGSC_XMT_CSR = XG-DS-V—FORK_ PEND = 
XGSC_XMT_ERR s XG_DS_V_INITED = 

GSOBT RG 03 XG_DS_V_LOADRPS = 
GSM_ABORT = XG_DS_V_RCVENB = — 
XGSM_BCC_ERR = XG_DS_V_RCVING = 
XG$M_ BUFO = 4 XG_DS_V_RCVPS = 4 
XGSM_CTS = 1 XG_DS_V-RCV_DONEP = $ 
XGSM_DONE_ * XG_DS_V_RCV_DONES = 8p 0 
XGSM_DONE_S = 8 XG_DS_V_XMTING = 00 
XGSM_DTR = XG_DS-V-XMT_DONEP = 0000 QOA 
XGSM_ENABLE = 01 XG_END 8 DR 03 
XGSM_ER = 00 XG_FC_V_READ_MODEM = 005 
XGSM_ILP_XCS = 3 XG_FC_V_STOP_CIR = Bons 
XGSM_INT_ ENABLE = XG_FC_V_STOP_LIN = 000 
XGSM_MASTER_RESET * 9 XG_FC_V_STRT_CIR = 00000000 
XGSM_PRI_SEC_STN = 00 XG_FC_V_STRT_LIN = 44 98 
XGSM_PRM_SEC = 04 XMSm_CHR_CTRC = 00 —8 
XGSM_RES_BIT_CNT = 0 XMSM_CHR_DMC = 86388 
GSM_RTS = 0 XMSM_CHR-HDPLX = 00000004 
XGSM_STRIP_SYNC = XMSM_CHR_TRIB = 00000080 
XGSM_TERM_TOL = XMSM_ERR_START = ret tt 
XG$S_LOOP_ TYPE = XMSM_ERR_ = 004 8 
XG$S_PROTOCOL = XMSM_STS_ACTIVE 2 9000 0 
XG$S_SYNC * 8 XM$V~CHR-HDPLX s 90 000 
XGSS_XMT_BRG = 4 XMSV_CHR_LOOPB = O80 0 
XGSV~BUFFER_CH = 0 XM$V~CHR_MOP = 00000 99 
XG$V_BUF FER-IN_PREV_POS = 1 XMSV~CHR-TRIB = 900 0 
XG$V_BUF OVR = 6 XMSV"ERR_FATAL 2 10 
XGSV~ CARRIER = XMSV-ERR— z 960 14 
XG$V~COMPLETE_READ = 2 XMSV-ERR_MAINT = 0000 13 
XG$V_CTS s 4 XMSV_ERR_START = 8 1 
XGS$V~DONE_ = F XMSV-ERR-TRIB = 16 
XGSV_DSR = 7 XMSV_MOM_CARRDET = 0 
XGSV_DTR = 9 XMSV_MDM_CTS = 4 
XGSV_ERROR = XMSV_MOM_DSR = 0 
XG$V-LOOP_TYPE ⸗ XMSV-MDM_DTR = 
XGSV—-MSG_C = — — = 
XG$V~PROTOCOL z XMSV-MDM_RTS ⸗ 5 
XGSV_RING_I =f f XMSV_STS_ACTIVE = 
XGSV-RTS = Of C XMSV"STS~BUFFAIL * ẽ 
XG$V~STRIP_SYNC = 000 XMSV"STS-DISC 2 E 
XGSV~SYNC = 000 XMSV"STS-ORUN 2 A 
XGSV_XAT_BRG = 000 XMITFOT 9R 93 
xG_ EF BOFSIZ = 00 mittee 8 R 
XG_DS_A_CLEAN s XMTQS$B_BUF TYP A 
XG_DS_M_CTSTQE_ RUN = XMTQ$B_FLAG F 
XG_DS-M~FORK PEND z XMTQ$B_MSGHDR 4 
XG_DS-M_INITED = XMTQ$B"SLOT C 
XG_DS_M_LOADRPS = XMTQSC_LENGTH A 
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Symbol table — — EE DRIVER.SR REIX XGDRIVER.MAR; 1 ⸗ (81) V 
pak oy LENGTH A 
$SL-BACC 4 
—— 
XMTQSL_TIMEND 
XMTQSM_ INTERNAL J 
XMTQSM_ONQUEUE = 
XMTQ$Q_LINK 
XMTQ$SV_CONTROL = 
XMTQSV_INTERNAL = 
XMTQSV_SELECT = 1 
TOS. § 
XMTQ$SW_DCRC 
XMTQSW-ERROR 
XMTQSW_ | 00 . 
XMTQSW_MSGOFF 0000 
XMTQSW_MSGS1ZE 0GD001A 
sececceecesocccece + 
! ; _Psect synopsis ; 
PSECT name Allocation PSECT No. Attributes 
- ABS . 00000000 <( 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL wae NOEXE NORD NOWRT NOVEC BYTE 
88 000001C ( 456.) 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
$$$105_PROLOGUE ies 13 ( 110.) ¢ ( 33 NOPIC USR CON REL LCL NOSHR EXE’ RD WRT NOVEC BYTE 
$$$115— DRIVER 0000257D ( 9597.) 03 ¢ -) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG 
bore ewe neces enw ee 2224 
Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 3 8:00:38 98 0:00:02.65 
— processing 14 0:00:00.59 0:00:04.22 
s 1 1437 :00:40.30 0:0 128} 
Synbol table sort 9 : 190-8! Q: - 4 
s2 45 3: 14.34 0:00: 44 
Symbol table output :00:00.45 0:00:01.55 
Psect synopsis output :00:00.01 00:00:00.01 
Cross-reference output :00:00. 2 Ba: : 8-90 
Assembler run totals 2084 — 0:04:09. 


The working set jiate was 3300 pages. 
pages) of virtual memory were used to buffer the intermediate gode: 
are were 240 pages of symbol table space at ecetee to hold 4051 non-local and 508 local symbols. 
source tines were read in Pass 1, produci ng! object records in Pass 2. 
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mek Macro Run Statistics SEP-1 DRIVER. Sai »MAR;1 (81) 
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! Macro Library statistics ! 


tower oemoee neem mene m cmon wesc a $+ 


Macro Library name Macros defined 


SDUA : FORIVER OBJ JSYNCHLIB.MLB;1 9 
3 SDUA SHRL 1B JNMALIBRY Y.MLB; 1 | 
SDUA 98/3118 LIB.MLB; 1 3 
“$255SDUA reve ie STARLET .MLB;2 11 
TOTALS (all Libraries) 54 


4248 GETS were required to define 54 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:XGDRIVER/OBJ=0BJ$:XGDRIVER MSRC$:XGDRIVER/UPDATE=(ENH$: XGDRIVER) +EXECML$/L1IB+SHRLIBS$:NMALIBRY/LIB+LIB$:SYNCHLIB/LIB 
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